look20
چهارشنبه 16 تیر 1389, 19:23 عصر
با سلام من 2 تا فرم دارم یکی فرم اصلی که توی اون آهنگ پخش میشه
توی فرم 2 هم تنظیمات برای انتخاب آهنگه. 2 تا option که روی هر کدوم کلیک کنم یه آهنگ انتخاب میشه و وقتی روی دکمه Save کلیک میکنم آهنگ انتخاب شده پخش و توی رجیستر ثبت میشه و بعد از اینکه فرم رو باز کردم آهنگ انتخابی باز میشه
این کد مآژوله:
Option Explicit
Public RegAdd As String
Public Function register()
RegAdd = "C:\Documents and Settings\max\Desktop\register"
If GetSetting(RegAdd, "option", "option1") = "true" Then
Form2.Option1.Value = True
Form1.soundAdd.Text = "c:\Music1.wma"
ElseIf GetSetting(RegAdd, "option", "option2") = "true" Then
Form2.Option2.Value = True
Form1.soundAdd.Text = "c:\Music2.wma"
End If
End Functionاینم کد فرم تنظیماته:
Private Sub Save_Click()
If Option1.Value = True Then
SaveSetting RegAdd, "Option", "Option1", "true"
ElseIf Option2.Value = True Then
SaveSetting RegAdd, "Option", "Option2", "true"
End If
End Sub
Private Sub Form_Load()
RegAdd = "C:\Documents and Settings\max\Desktop\register"
End Sub
نمیدونم مشکل این کدها چیه که اصلا عمل نمیکنه
توی فرم 2 هم تنظیمات برای انتخاب آهنگه. 2 تا option که روی هر کدوم کلیک کنم یه آهنگ انتخاب میشه و وقتی روی دکمه Save کلیک میکنم آهنگ انتخاب شده پخش و توی رجیستر ثبت میشه و بعد از اینکه فرم رو باز کردم آهنگ انتخابی باز میشه
این کد مآژوله:
Option Explicit
Public RegAdd As String
Public Function register()
RegAdd = "C:\Documents and Settings\max\Desktop\register"
If GetSetting(RegAdd, "option", "option1") = "true" Then
Form2.Option1.Value = True
Form1.soundAdd.Text = "c:\Music1.wma"
ElseIf GetSetting(RegAdd, "option", "option2") = "true" Then
Form2.Option2.Value = True
Form1.soundAdd.Text = "c:\Music2.wma"
End If
End Functionاینم کد فرم تنظیماته:
Private Sub Save_Click()
If Option1.Value = True Then
SaveSetting RegAdd, "Option", "Option1", "true"
ElseIf Option2.Value = True Then
SaveSetting RegAdd, "Option", "Option2", "true"
End If
End Sub
Private Sub Form_Load()
RegAdd = "C:\Documents and Settings\max\Desktop\register"
End Sub
نمیدونم مشکل این کدها چیه که اصلا عمل نمیکنه