海贼王斯巴克·贾巴:在VB中测试屏幕分辨率的控件

来源：百度文库编辑：杭州交通信息网时间：2024/04/28 22:23:33

不需要控件，两种方法实现

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Sub Command1_Click()
With Screen
Me.Print .Width \ 15
Me.Print .Height \ 15
End With
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
Me.Print "宽：" + Str$(GetSystemMetrics(0))
Me.Print "高：" + Str$(GetSystemMetrics(1))
End Sub

在VB中测试屏幕分辨率的控件在VB中如何去掉WebBrowser控件的滚动条？在VB中，滚动条控件的VALUE属性（）？关于在VB中使用Internet Transfer控件的问题 VB中滚动条的控件在哪？怎么弄？在vb 中打开word有什么好的控件? 请教在vb的PictureBox控件中动态生成子控件？如何在VB的picturebox控件中让图形适应控件自动调整大小在VB中如何winsock控件? 在VB中如何动态创建控件？？