مشکل در تنظیمات نور صفحه

[alirezn 68]

سلام
 
من با استفاده از چک باکس و کد زیر واسه برنامم تنظیمات گذاشتم، وقتی تیک رو میزنم صفحه روشن میمونه و درست کار میکنه ولی وقتی تیک رو بر میدارم، بازم صفحه روشن میمونه

 

	Mood = Not(Mood)
 If Mood Then
    keep.KeepAlive(Mood)
	ToastMessageShow("صفحه روشن خواهد ماند",False)
 Else
   keep.KeepAlive(Mood)
   ToastMessageShow("صفحه روشن نخواهد ماند",False)
 End If

[مهدی ایزدی 9,203]

درود

شما کلا از True یا False استفاده کنید کافیه    با یک متغیر از توی Boolean که توی همون شرط قرار بدید.

[alirezn 68]

درود

شما کلا از True یا False استفاده کنید کافیه    با یک متغیر از توی Boolean که توی همون شرط قرار بدید.

یعنی این فایده نداره؟

 

میشه اون کد خودتون رو بدین؟

[alirezn 68]

up

[alirezn 68]

[مهدی ایزدی 9,203]

یه همچین چیزی حدودا :

Sub Globals
Dim p As PhoneWakeState
Dim bool As Boolean
End Sub

Sub Button1_Click
	If bool = False Then
		p.KeepAlive(True)
		ToastMessageShow("صفحه روشن خواهد ماند",False)
		bool = True
	else if bool = True Then
		p.KeepAlive(False)
		ToastMessageShow("صفحه روشن نخواهد ماند",False)
		bool = True
	End If
End Sub