Sub getFormPosition As String
Private screenXY() As String = Regex.Split(",", getScreenWH)
Private taskbarHeight As Int = getTaskbarHeight
Private l, t, w, h As Int
h=screenXY(1)-taskbarHeight
w=h*0.75
t=0
l=(screenXY(0)-w)/2
Return l & "," & t & "," & w & "," & h
End Sub
Sub getScreenWH As String
'Private fx As JFX
'Private ScreenX As Int = fx.PrimaryScreen.MaxX
'Private ScreenY As Int = fx.PrimaryScreen.MaxY
'Return ScreenX & "," & ScreenY
Dim jo As JavaObject
jo.InitializeStatic("java.awt.Toolkit")
jo = jo.RunMethodJO("getDefaultToolkit",Null)
Private ScreenX As Int = jo.RunMethodJO("getScreenSize",Null).RunMethod("getWidth",Null)
Private ScreenY As Int = jo.RunMethodJO("getScreenSize",Null).RunMethod("getHeight",Null)
Return ScreenX & "," & ScreenY
End Sub
Sub getTaskbarHeight As Int
Dim jo As JavaObject=Me
Return jo.RunMethod("taskbar",Null)
End Sub
#if java
import com.sun.jna.platform.win32.User32;
import com.sun.jna.platform.win32.WinDef.RECT;
import com.sun.jna.platform.win32.WinDef.HWND;
public static int taskbar() {
User32 user32 = User32.INSTANCE;
HWND hWnd = user32.FindWindow("Shell_TrayWnd", null);
if (hWnd != null) {
RECT rect = new RECT();
user32.GetWindowRect(hWnd, rect);
int x = rect.left;
int y = rect.top;
int width = rect.right - rect.left;
int height = rect.bottom - rect.top;
return height+29;
}
return 69;
}
#End If