å±å¹çé¿å®½å°±æ¯å±å¹çå辨çï¼ç¨ä¸é¢ç代ç å®ç°ï¼æ¯å¥åé¢å·²æ·»å 注é
Dim x As Integer, y As Integer 'å®ä¹2个æ´æ°ååé
x = Screen.Width / Screen.TwipsPerPixelX 'è·åå±å¹å®½åº¦
y = Screen.Height / Screen.TwipsPerPixelY 'è·åå±å¹é«åº¦
ä¸é¢æ¯vbçè¯æ³
ä¸é¢æ¯Vb.Netçè¯æ³ï¼
Dim x, y As Long 'å®ä¹2个æ´æ°ååé
x = Screen.PrimaryScreen.Bounds.Width.ToString 'è·åå±å¹å®½åº¦
y = Screen.PrimaryScreen.Bounds.Height.ToString 'è·åå±å¹é«åº¦
温馨提示:答案为网友推荐,仅供参考