Here's my code that involves an error I am getting with flb:
Sub App_Start
Form1.Show
flb.New1("Form1",B4PObject(1))
Total.Focus
End Sub
Sub flb_Resize 'Fires when the user changes the screen orientation
If Form1.Width > Form1.Height Then
Msgbox("Landscape")
Shell(AppPath, "\BtnsL_90.exe")
Else
Msgbox("Portrait")
Shell(AppPath, "\BtnsL_90.exe")
End If
End Sub
I'm getting a runtime error on my HTC Touch / AT&T Fuze when I open the keyboard and the screen flips to landscape:
An error occurred on sub_main_flb_resize.
Win32Exception
Continue?
If I continue, there are no buttons on my app. If I don't continue, it exits.
What I am trying to do is have by app rotate when the keyboard is pulled out. on the device. As it happens now, the screen rotates and the buttons are lost because the form does not fit on the screen in landscape, and there are no scroll bars. Any guidance on how to fix this is greatly appreciated. Thanks in advance.
:sign0104: