Full Screen

[Sina 87]

سلام . دوستان چطور میشه خاصیت full screen بودن نرم افزار رو در حال اجرای نرم افزار تغیر داد . مثلا با کلیک روی Button این خاصیت تغییر کنه .

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

سلام. سینا اگه میشه یک خورده امضات رو کوچیکتر کن عکس هاشو. خیلی بزرگه. ممنون میشم.

اما جوابت :

این رویداد رو تعریف میکنی:

Sub FullScreen(active As Boolean,ActivityName As String)
     Dim obj1 As Reflector

     obj1.Target = obj1.GetMostCurrent(ActivityName)
     obj1.Target = obj1.RunMethod("getWindow")

     obj1.RunMethod2("clearFlags",1024,"java.lang.int")
     obj1.RunMethod2("clearFlags",2048,"java.lang.int")

     If active Then
        obj1.RunMethod2("addFlags",1024,"java.lang.int")
       Else
        obj1.RunMethod2("addFlags",2048,"java.lang.int")
     End If
End Sub

بعدش مثلا یک Button میزاری به اسم Button1 واسه Full Screen کردن . یک Button2 هم واسه Full Screen = False کردن.

Sub Button1_Click
FullScreen(True,"Main")
End Sub
Sub Button2_Click
FullScreen(False,"Main")
End Sub

Add کردن کتابخانه Reflection فراموش نشود