11问答网
所有问题
当前搜索:
VB鼠标改变text大小
vb中
,如何在运行时用
鼠标
对控件(如
Text
box)进行移动和缩放(即
改变大小
...
答:
Private Sub
Text
1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)MoveWindow hwnd End Sub Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)MoveWindow hwnd End Sub ...
vb中
,如何在运行时用
鼠标
对控件(如
Text
box)进行移动和缩放(即
改变大小
...
答:
一般程序再运行之后是不会允许这样做的。不过你可以再其他的地方执行程序,
修改text
的height和width两项的数据,从而
改变大小
,如果你想写的话可以读取
鼠标
的坐标,如果再边框的时候按下并且移动,就执行上面的那些内容,不过很麻烦,我没有时间试验了。你可以自己试验一下看看。timer控件监控 ...
vb中
,如何在运行时用
鼠标
对控件(如
Text
box)进行移动和缩放(即
改变大小
...
答:
Private Sub
Text
1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)MoveWindow hwnd End Sub Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)MoveWindow hwnd End Sub ...
vb
拖动
TEXT
BOX
答:
先用mousemove记录开始
鼠标
的位置,再用MouseMove 事件,鼠标移动时根据鼠标移动的
大小改变text
box的大小 MouseMove 事件 此事件在移动鼠标时发生。语法 Private Sub Form_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)Private Sub MDIForm_MouseMove(button As Integer, shift...
vb中鼠标
移到label上时字体变大,移开鼠标时字体变回原来
大小
,然后再点 ...
答:
As Integer, X As Single, Y As Single)If Label1.FontSize = 9 Then Label1.FontSize = 14 '
鼠标
移入字体变大End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Label1.FontSize <> 9 Then Label1.FontSize = 9 '鼠标移出...
vb中
,如何让文本框随窗体
大小
而变化呢?
答:
回答:在form_resize事件中写上以下代码:
text
1.letf=0text1.top=0text1.width=me.widthtext1.height=me.height 就可以啦
VB
里
改变Text
Box控件的字体
大小
的代码是什么?
答:
VB
里
改变Text
Box控件的字体
大小
的代码是:Private Sub Command1_Click()Text1.FontName = "宋体" '设置字体 Text1.FontSize = 32 '设置字号 Text1.FontBold = True '设置粗体 Text1.FontItalic = True '设置倾斜 Text1.FontUnderline = True '设置下划线 End Sub ...
VB中
怎么使用combox选择数值(如8,9,10等)来
改变Text
中字号的
大小
?
答:
最好先将Combo1控件的Style设置为2 - Dropdown List Private Sub Form_Load()Dim i As Integer For i = 1 To 20 Combo1.AddItem i Next i End Sub Private Sub Combo1_Click()
Text
1.Font.Size = Combo1.Text End Sub
如何根据需要
改变VB中text
文本中被选中文字的颜色与
大小
答:
这个控件可以设置字体的颜色,样式。你这个问题应该不难,代码如下:private sub form_load()‘在rich
text
box中输入'I LOVE YOU',然后选中’love'richtextbox1.selcolor=
vb
red ‘设置选中的部分的颜色’richtextbox1.selfontsize=18 '设置选中字体的的
大小
‘end sub 应该是这样的,你试试吧 ...
vb
里怎么让单击后文本框扩大,同时文本框内的文字按照规定要求扩大N倍...
答:
1、打开Visual Basic 6.0软件,新建一个标准exe工程,在窗体上添加一个
Text
控件和一个Command控件,Text1的文本在窗体创建时内容为"Visual Basic",Command的Caption属性值为"放大3倍";2、双击窗体和双击Command进入代码编辑窗口,编写代码如下:Private Sub Command1_Click()Text1.Width = 3 * Text1....
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
VB鼠标拖动text大小
vb中编写改变字体字号大小
vb滚动条改变字体大小代码
vb窗体字体大小在哪设置
vb标签如何自动调大小
VB命令按钮字体变大变小
vb文本框字号字体设置
VB调整字体大小
vb怎么调节字体大小