非常风气网www.verywind.cn
首页
vb中放大缩小代码
VB
想使标签控件中字号大小改变,假如原来是3号字体,变成四号字体 用代...
答:
(如图)首先在窗体form1中部画一个标签控件Label1,然后画三个命令按钮Command1(
放大
)、Command2(
缩小
)、Command3(将此命令再复制三个出来组成一个“四个command3”
的
数组控件代表“→”“←”“↑”“↓”),属性均为默认,最后复制以下
代码
到代码窗口运行即可:Private Sub Command1_Click() '放...
那位高手可以给我在
vb中
用鼠标释放,
缩放
,旋转图片的
代码
,代码正确,分数...
答:
Dim X1 As Integer, Y1 As Integer '过渡坐标 Dim X2 As Double, Y2 As Double '过渡坐标 Dim X3 As Double, Y3 As Double '点经过旋转后在TP2中
的
坐标 Dim angle As Double '旋转的角度 Dim radian As Double '旋转的弧度 angle = 90 '设定旋转的角度,可以修改,如果修...
vb
6.0窗体
放大
变小
的代码
答:
Height = Height + 150 '窗体加高150缇 '
同理,用减法就是缩小
创建
VB
工程,运行时可将文本框中的文字字号随机
放大
和
缩小
(求程序
代码
...
答:
Private Sub Command1_Click()Dim x x = Int((4 * Rnd) + 1)Text1.FontSize = Text1.FontSize * x End Sub Private Sub Command2_Click()On Error Resume Next Dim x x = Int((4 * Rnd) + 1)Text1.FontSize = Text1.FontSize \ x End Sub Private Sub Form_Load()Text1.Fo...
关于vb 里
picturebox 图片
放大缩小
以及移动的问题
答:
Picture1.Width = Picture1.Width + 100 '
放大
Picture1.Height = Picture1.Height + 100 End Sub Private Sub Command4_Click()Picture1.Width = Picture1.Width - 100 '
缩小
Picture1.Height = Picture1.Height - 100 End Sub Private Sub Command5_Click()Picture1.Left = Picture1....
vb中
给文字增大
缩小
加下划线加删除线粗体斜体
代码
答:
'控件一个文本框text1,五个按钮command1至command5Private Sub Command1_Click() '增大字体 Text1.FontSize = Text1.FontSize + 1End SubPrivate Sub Command2_Click() '
缩小
字体 If Text1.FontSize > 2 Then Text1.FontSize = Text1.FontSize - 1End SubPrivate Sub Command3_Click(...
关于VB放大缩小
图片
的
问题
答:
Image1.Move (Me.ScaleWidth - image1.Width) \ 2, (Me.ScaleHeight - image1.Height) \ 2,Image1.Width * 2,Image1.Height * 2 SavePicture 可以保存图片:SavePicture Image1.Picture, 文件名称 可能保存
的
是原始大小的图片(记得不是很清楚了),如果那样你需要添加一个图片框pic1,用pic1...
vb
图片
放大
器怎么做啊 求具体
代码
答:
Private Sub Form_Load()Image1.Stretch = True Image1.Picture = LoadPicture(图片路径)End Sub Private Sub
放大
_Click()Image1.Width = Image1.Width * 放大倍数 Image1.Height = Image1.Height * 放大倍数 End Sub
VB中
如何实现图片自动
缩放
答:
全部
代码
如下:Dim ch As Boolean '图像改变大小标志 Private Sub Form_Load()ch = False '程序运行时,鼠标肯定还没有经过图像,所以,假 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If ch Then '已经
放大
了,则
缩小
,当鼠标离开图像...
请教:用
vb
编程如何实现用鼠标滚轮
扩大
和
缩小
窗体上
的
图片?
答:
在Form1中放入一个Picture1控件,然后输入以下
代码
:Private Sub Form_Load()Picture1.AutoRedraw = True Picture1.Picture = LoadPicture("e:\tmp\cd1.gif") '图片文件名,自己改 Picture1.Move 0, 0, 6000, 4800 ohwnd = Picture1.hwnd OldWindowProc = GetWindowLong(Picture1.hwnd, GWL...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
你可能感兴趣的内容
vb中放大缩小还原的代码是什么
vb字体放大缩小代码
vb做图片放大缩小代码
vb中字体放大的代码
vb中放大的代码是什么
vb改变字体大小代码
vb怎么用代码改变字体大小
vb如何放大代码
vb放大代码怎么写
本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
©
非常风气网