请教VB高手一个缩小控件的问题
楼上可以
但是!
我这里有一个更加简单的方法来解决这个问题
Private
Sub
Command1_click()
Dim
a
As
Control
For
Each
a
In
Form1.Controls
a.Height
=
a.Height
*
0.8
a.Width
=
a.Width
*
0.8
Next
End
Sub
这样是不是就OK了
有两种方法
第一种--判断对象的类型
但是做起来比较麻烦
你可以让程序忽略错误运行
第二种--忽略错误
Private
Sub
Command1_click()
On
Error
Resume
Next
Dim
a
As
Control
For
Each
a
In
Form1.Controls
a.Height
=
a.Height
*
0.8
a.Width
=
a.Width
*
0.8
Next
End
Sub
VB高手进~关于改变图片大小的问题
答案补充：那更简单了，放两个变量存储就行了。Dim h As Single, w As Single Private Sub Command1_Click()Image1.Height = Image1.Height * 1.25 Image1.Width = Image1.Width * 1.25 End Sub Private Sub Command2_Click()Image1.Height = h '直接获取原始大小 Image1.Width = w En...
求助VB高手
放上三个按钮名字默认,command1放大,command2缩小,command3恢复 两个textbox默认就可以,text1是用来看效果的,text2是用来看缩放的历史记录 Dim iFontSize As Double Private Sub Command1_Click() '放大 setFontSize 1 End Sub Private Sub Command2_Click()'缩小 setFontSize 2 End Sub Private ...
vb中怎么让一个变量数值变化,另一个变量输出的整数位数也变化?_百度...
a = Val(Combo1) '单个数值最小位数 b = Val(Combo2) '单个数值最大位数 If a = 0 Or b = 0 Then Exit Sub If a > b Then MsgBox "请将a项值小于b项值！"End If d = Val(String(b, "9"))c = Val(IIf(a = 1, 0, 1 & String(a - 1, "0")))MsgBox "a=" & a...
请教VB高手一个.dat的问题
Private Sub Command1_Click()Dim a a = Split(openfile("E:\\hsum.dat"), vbCrLf)MsgBox "E:\\10\\hsum.dat有" & UBound(a) & "行"End Sub Public Function openfile(ByVal filepath As String) As String Dim s As String Open filepath For Input As #1 While Not EOF(1)Line Inp...
vb怎么做个放大、缩小的控件
image控件设置stretch属性为TRUE 这样的话就会自动放大或缩小图片和控件一样大，你只需要改变image控件的大小即可改变图片大小
那位高手可以给我在vb中用鼠标释放,缩放,旋转图片的代码,代码正确,分数...
第一部分：图像的缩小和放大（使用Image控件）：Dim X As Integer Private Sub Command3_Click() '退出 End End Sub Private Sub Form_Load()X = 1 End Sub Private Sub Image1_Click()If X = 1 Then '放大 With Image1 .Width = .Width * 2: .Height = .Height * 2 .Left = ...
请教VB高手一个删除控件的问题
Image1(i).Left = Image1(i - 1).Left + 50 Next i End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyDelete And i > 0 Then Unload Image1(i)End If End Sub Private Sub Form_Load()Me.Picture1.ScaleMode = 3 Me.KeyPreview = True En...
vb中如何缩小图片
用Image，不要用PictureBox。双击Image载入图片，然后在属性窗口中将Stretch的值设置为True就行了。
请教VB高手一个程序运行时间的问题
开始程序前先运行一段代码 Private Declare Function GetTickCount Lib "kernel32" () As Long Dim PerTime as Long Private Sub Form_load()Dim Timer1 as Long Timer1 = GetTickCount 这里写一段代码 PerTime = GetTickCount - Timer1 '这里的PerTime就是运行以上计算量的...
VB编程,实现图片放大缩小
回答：你改变宽度和高度后还要重新加载一次图片Pic1.picture=loadpicture("图片")
蛮行鳖甲： 在单击Command里面添加如下代码: image1.top=image1.top-1 image1.left=image1.left-1 image1.height=image1.height+1 image1.width=image1.width+1 数值可以随你自己意思修改.
石阡县15151122919： VB如何做一个最小化按钮 - ？
蛮行鳖甲： 添加一个按钮Private Sub Command1_Click()Me.WindowState = 1 End Sub
石阡县15151122919： Vb中怎么让控件随窗体放大缩小?谢谢! - ？
蛮行鳖甲： 在窗体的resize时间中写代码控制控件大小的代码
石阡县15151122919： VB改变窗体大小 - ？
蛮行鳖甲： 前面做的是对的呵,不过我在加一行,免得点几次看不到按钮了..让按钮自己向上跑呵.Private Sub Command1_Click() Me.Height = Me.Height - 300 If Command1.Top + Command1.Height > Me.ScaleHeight Then Command1.Top = Me.ScaleHeight - Command1.Height End Sub
石阡县15151122919： vb语言中怎么使窗体和窗体里的控件同时放大缩小? - ？
蛮行鳖甲： 要做到同时扩大或缩小,而比例不变.要先记住窗体的原来的大小和控件的大小.再用到窗体的Form_Resize()事件.简单的好像不能达到保持原比例
石阡县15151122919： vb6.0中如何根据分辨率自动改变窗体中控件的大小 - ？
蛮行鳖甲： 比如 image.top = screen.hight * 0.8 image.left = screen.with * 0.8 image.hight = screen.hight * 0.3 image.with = screen.with * 0.3 这段代码放在窗体加载时即可· 其它的效仿
石阡县15151122919： VB中怎样使两个控件的大小一样? - ？
蛮行鳖甲： 多种方法:1、先建立一个控件,确定大小后,再复制粘贴出另一个;2、在属性窗口中把两个控件的width和height属性设为同样的数值;3、在代码中把第二个控件的width和height属性设为跟第一个一样,如: Text2.Width = Text1.Width Text2.Height = Text1.Height
石阡县15151122919： VB 运行时如何使picture控件随窗体放大缩小 - ？
蛮行鳖甲： 在窗体Resize事件中根据窗体的宽度改变控件的宽高就行了.例如 Private Sub Form_Resize() picture1.width=form1.width/10 picture1.height=form1.height/10 这样控件根据窗体的大小缩放.同样,相对位置也可以这样
石阡县15151122919： vb中,如何在运行时用鼠标对控件(如Textbox)进行移动和缩放(即改变大小)操作? - ？
蛮行鳖甲： Private Declare Function ReleaseCapture Lib ＂user32＂ () As Long Private Declare Function SendMessage Lib ＂user32＂ Alias ＂SendMessageA＂ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As ...
石阡县15151122919： vb.net如何实现运行时改变控件的大小? - ？
蛮行鳖甲： 陈恩点在此为你解答如有错误请见谅: 思路是这样的: 先判断鼠标位置(MouseMove事件) 如果在边缘,同时鼠标左键是按下的 窗体增加 增加数为鼠标移动数
