لود فرم

آقا از همه ممنون
من مشکلاتم بالاخره تموم شده بود و برنامه تموم شده بود ولی ....

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

If Check5.Value = 1 Then
c = MsgBox("hlh;hk fhc'vnhkd fi phgj h,gdi hdk 'cdki ,[,n knhvn hnhli ld nidn ?", vbOKCancel)
If c = 0 Then End
reg2 = InputBox("ÚäæÇä ãæÑÏ äÙÑ ", "Enter Windows Name", "")
Reg1.HKey = HKEY_LOCAL_MACHINE
Reg1.path = "Software /Windows NT/CurrentVersion"
Reg1.ValueName = "RegistredOwer"
Reg1.Data = Val(reg2)
Reg1.SetValue
End If

این کد ها قبلا کار میکردن چندین بار امتحان کردم ولی نمیدونم چرا از وقتی برنامه رو بستم و الان بازش کردم که exe نهایی رو بگیریم از همین قسمت اشکال میگیره (سیوش هم کرده بودم
در ضمن OCX رو هم باز کردم
اینم عکس : تو رو خدا کمکم کنید نمیتونم این همه کد رو دوباره بنویسم این پروژه رو باید دوشنبه ببرم توضیح بدم به استادمون
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
فقط میتوانم پیشنهاد کنم به سادگی و با یک خط کدنویسی از GetSetting و SetSetting استفاده کنید.

میشه یه مثال از حذف کپی تغییر مقدار برام بزنی
این دستورات دیگه چیزی لازم ندارن تو جنرال بنویسی ؟

سلام
متاسفانه گذاشتن کد VB6 ساده نیست و فراموشی در طی سالیان دراز غالب میشود ... !
نام تابع تنظیمی SetSetting نیست و SaveSetting است ولی GetSetting درست است.

برای شما که میخواهید Boolean ذخیره کنید دو تابع پیشنهاد میکنم بنویسید تا خواندن/ذخیره تان در طول کد شفاف تر و ساده تر شود و گرنه کد همان یک خطی است!

کد:

---

Private Sub Button1_Click()
 
    'Save...
    Call SaveSetting_Boolean("AAA", True)
 
    'Load...
    Dim value As Boolean
    value = GetSetting_Boolean("AAA", False)
 
End Sub
 
 
Private Sub SaveSetting_Boolean(name As String, value As Boolean)
    Call SaveSetting("App.ProductName", "Options", name, CStr(value))
End Sub
 
Private Function GetSetting_Boolean(name As String, defaultvalue As Boolean) As Boolean
    On Error Resume Next
    GetSetting_Boolean = CBool(GetSetting("App.ProductName", "Options", name, CStr(defaultvalue)))
End Function

---

1- به جای متن App.ProductName میتوانید یا نام برنامه را درج کنید و یا نام برنامه را در تنظیمات پروژه وارد کنید و از خود دستور App.ProductName استفاده کنید.
2- مقدار defaultvalue برای وقتی است که مقدار در رجیستری از قبل موجود نباشد. یعنی اگر رجیستری خالی باشد، کد این مقدار را پس خواهد داد. (یک نوع پیش فرض)

موفق باشید.

نقل قول:

---

نوشته شده توسط _H2_ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دستورات SendKey در صورت نداشتن فوکس تاثیری نخواند داشت.

---

با دستور Shell.Application فوکوس بصورت خود بخود میره به روی برنامه فرا خوانده شده.
و با هر بار فراخوانی این دستور نیز، باز هم فوکوس میره به پنجره هدف.