在form上加上一个picture控件,怎么让picture里的图随form的大小也变化大小,而不只是显示一小部分?
谢谢
谢谢
解决方案 »
- VB 如何在透明控上画曲线
- 发送邮件系统?
- >>>>>>>>>>>>>>>>>>>>>>>>厦门VB程序员大集合<<<<<<<<<<<<<<<<<<<<<<<<<
- XP+VB6.0写的web控件,在XP,2003的ie上可以用,2000,2000server不可以用
- 巨简单问题,关于查询,在线等
- 关于dll调用的问题,急急急急急!!!请各位帮忙!!!在线等!!!!谢谢谢谢谢谢!!!!!
- vb调用vc写的动态连接库的问题?????求救!
- datagrid控件问题
- 我想写一个VB教程,请大家参谋,参谋
- 请高手解释一下这段话?
- 作方向箭頭(可任意改變方向)
- 用VB写XML文件时怎么指定它的编码方式和版本号?
如果你想要图片会随窗体大小变化而变化,则Copy下面的代码
需要一个PictureBoxPrivate Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As LongPrivate Sub Form_Load()
Me.AutoRedraw = True
Picture1.Picture=LoadPicture("你想要的背景图片")
Picture1.AutoSize=True
Picture1.AutoReDraw=True
Picture1.Visible=False
End SubPrivate Sub Form_Resize()
StretchBlt Me.hdc, 0, 0, Me.ScaleWidth / Screen.TwipsPerPixelX, Me.ScaleHeight / Screen.TwipsPerPixelY, Picture1.hdc, 0, 0, Picture1.Width / Screen.TwipsPerPixelX, Picture1.Height / Screen.TwipsPerPixelY, vbSrcCopy
Me.Refresh
End Sub
他的Form_Resize没有看懂啊
随form变化大小图片是一个中国地图。点击每个省市的就会弹出每个省市的详细地图。
我是在每个省市上放上透明无边框的lable控件,在lableclick事件里添加显示代码.以前是中国地图随form不变,相对的每个lable事件的位置是固定的。但现在图随form固定,而lable的位置不变,这样点击的时候位置就不对了。那位大虾能帮忙怎么解决才好呢
谢谢~~
继续关注楼下的更好的设计思路。