X
تبلیغات
پیکوفایل
رایتل
پشم سنگ عایق الاستومری
چهارشنبه 2 اردیبهشت‌ماه سال 1388
توسط: آلفا پک

دو و یک

   

 چگونه از اجرای مجدد یک برنامه در ویژوال بیسیک جلوگیری کنیم ؟  

خوب با استفاده از کد زیر در فرم اصلی برنامه تان می توانید از اجرای مجدد برنامه

جلوگیری کنید .

 


Private Sub Form_Load()
If App.PrevInstance = True Then
Dim Result As Integer
Result = MsgBox("برنامه در حال اجراست", vbInformation, "Warnnig")
Unload Me
End If
End Sub 

 

تشخیص Admin بودن کاربر جاری در ویندوز 

اگه زمانی خواستید این موضوع رو بفهمید کافیه که از تابع API ی که در shell32 تعریف شده

استفاده کنید. صورت کلی این تابع چنین است:

Private Declare Function IsUserAnAdmin Lib "shell32" () As Long

تحت ویندوز 2000 ممکنه که شما خطای با عنوان Can't find DLL entry point دریافت کنید که بهتر

است که معرفی تابع را بدین گونه انجام دهید:

Private Declare Function IsUserAnAdmin Lib "shell32" Alias "#680" () As Long 

 

ویک کتاب در آخر امر یک کتاب برای ویژوال بیسکی ها دارم شاید مفید باشه : 

http://www.4shared.com/file/86969997/74ff527d/vb6-ebook.html