Question

vb中如何实现单击窗体后就在标题栏显示相应文字并自动装入图片的事件?

图片大小为264*256，要求正好填满窗体，急！！！

Answer 1

Private Sub Form_Click()
Me.Caption = "标题栏显示的文字"
Me.Width = 264 * Screen.TwipsPerPixelX
Me.Height = 256 * Screen.TwipsPerPixelY
Me.Picture = LoadPicture("图片文件名及路径")
End Sub

Answer 2

Private Sub Form_Click()
Me.Caption = "标题栏显示的文字"
Me.Width = LoadPicture("图片文件名及路径").Width
Me.Height = LoadPicture("图片文件名及路径").Height
Me.Picture = LoadPicture("图片文件名及路径")
End Sub
这样的话似乎可以做到全包（不用考虑图片大小）。。