مشخصات سایت
مدیر سایت: حامد آبی
شهر یاسوج
تلفن  
پست الکترونیک: bluehamed72@gmail.com
آمار سايت
بازديد‌هاي امروز:
بازدبد‌هاي ديروز:
كل بازديد‌ها:
افراد آنلاين:
كل مطالب:
33
89
441776
2
46
جدول رده بندی لیگ دسته دو-گروه الف
رديف
تيم
بازي
امتياز
1
برق نوین شیراز
16
30
2
اروند خرمشهر
16
30
3
نفت و گاز گچساران
15
27
4
فولاد نوین اهواز
16
27
5
نفت امیدیه
16
27
6
بعثت کرمانشاه
16
26
7
سپهر نقش جهان
16
25
8
زاگرس یاسوج
15
24
9
کیمیا فرایند تهران
16
20
10
قشقایی شیراز
16
19
11
شهرداری اراک
15
15
12
شهر باران تهران
15
5
13
شهباز نوژان البرز
16
4
14
0
0
آرشيوها
ورود كاربران
نام‌كاربري:
رمزعبور:
ثبت نام
نظر سنجي
نظر شما راجبه قالب جدید صفحه اول چیست؟
1
.
عالیه
2
.
خوبه
3
.
بد
نتايج نظر سنجي
لينك‌هاي دوستان
جستجوگر گوگل
Google



در كل اينترنت
در اين سايت

جلوگيري از اجراي مجدد برنامه

براي اينكه بخواهيد از اجراي مجدد يك برنامه جلوگيري كنيد ميتوانيد از كد زير استفاده كنيد:

 

Private Sub Form_Load()
   If App.PrevInstance Then
       MsgBox "This program already in use.", vbCritical
       End
   End If
End Sub

ولي كد بالا مشكلي كه داره اينه كه وقتي شما برنامه رو به يك پوشه يا شاخه ديگر كپي مي‌كنيد، و يا اسم آن را عوض ميكنيد برنامه باز هم اجرا ميشه و كد كارايي نداره. براي حل اين مشكل مي‌توانيد از كد زير استفاده كنيد. البته اين كد، كد حرفه‌اي نيست. ولي براي جلوگيري كردن از اجراي مجدد مناسب است: 

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
Dim haN As Long, l As Long, s As String

   If App.PrevInstance Then
       MsgBox "This program already in use.", vbCritical
       End
   End If

haN = Val(GetSetting("Project1", "Project1", "Project1"))

If haN <> Me.hwnd And haN <> 0 Then
    l = GetWindowTextLength(haN) + 1
    s = String(l, 0)
    GetWindowText haN, s, l
    s = Left(s, l - 1)

    If s = Me.Caption Then
       MsgBox "This program already in use.", vbCritical
       End
    End If

End If

SaveSetting "Project1", "Project1", "Project1", Str(Me.hwnd)

End Sub

در اين كد عنوان فرم خيلي تاثير داره. بايد سعي كنيد از عنواني براي فرم خود استفاده كنيد، كه در برنامه‌ي ديگري استفاده نشده باشد.

نوشته شده توسط: سیدعبدالحامد حسین پور | ساعت: 14:37:28 | روز: جمعه 15/02/1391
نظرات
نظري براي اين مطلب وجود ندارد.