66问答网
所有问题
当前搜索:
VB如何领文本框显示文字
vb中如何
创建新字体同时赋给
文本框
的字体属性
答:
Text1.FontSize = CommonDialog1.FontSize '为
文本框
字号赋值 Text1.FontBold = CommonDialog1.FontBold '设置是否为粗体 Text1.FontItalic = CommonDialog1.FontItalic '设置是否为斜体 End Sub
VB
有个专用的字体设置对话框,可以利用这个进行设置的 具体的使用方法就是上面的代码,在程序中...
vb中如何
获取
文本框
中的最后一个字符
答:
ss = Right(Text1.Text, 1)
VB
获取指定网页
文本框
的内容
答:
你可以参考上述代码进行修改。如楼上所言,这个网站上
显示
的时间,其实就是你的本机时间:Private Sub Form_Load()Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer()Text1 = Format(Now, "东8区时间:yyyy年m月d日 aaaa hh:mm:ss")End Sub ...
vb
单击按钮
文本框文字
自动变色,再单击停止变色
答:
Private Sub Form_Load()Timer1.Interval = 100 Timer1.Enabled = False End Sub Private Sub Command1_Click()Timer1.Enabled = Not Timer1.Enabled End Sub Private Sub Timer1_Timer()Text1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))End Sub ...
vb中怎样
使
文本框
内的
文字
被选中后另外一个按钮可以用?
答:
根据
文本框
是否选择
文字
,即Text1.SelLength > 0,还能根据选中的文字激活,代码如下:'添加Text1,Command1,Timer1三个控件Private Sub form_Load()Timer1.Interval = 200Command1.Enabled = FalseText1 = "特定的字符"End SubPrivate Sub Timer1_Timer()If Text1.SelLength > 0 Then '文本框...
为什么用DOS批处理产生的txt中的
文字
复制到
VB
的
文本框
中
显示
的是...
答:
你这个应该是编码的问题 txt
文本框
或者跟
vb框
采用了不同的编码,比如个gb2312或者UTF-8或者GBK什么之类的
vb如何
实现
文本框
与滚动条的值互相调整?
答:
Private Sub HScroll1_Change()Text1.Text = HScroll1.Value End Sub Private Sub Text1_Change()If Val(Text1.Text) > HScroll1.Max Or Val(Text1.Text) < HScroll1.Min Or Text1.Text = "" Then MsgBox "你输入的数据超出了滚动条滚动范围,请重新输入!!"Else HScroll1.Value = ...
VB怎样
把文本文档里的不同段落的
文字
读取到不同的
文本框
中?_百度知 ...
答:
Private Sub Form_Load()Dim I As Integer, S As String Open "D:\YY.txt" For Input As #1 Do While Not EOF(1)I = I + 1 Line Input #1, S Me.Controls("Text" & CStr(I)).Text = S Loop Close 1 End Sub
vb 如何
清除特定字符外的
文字
和字符?
答:
Private Sub Command1_Click()Dim i As Integer Dim temStr As String Text2.Text = ""For i = 1 To Len(Text1.Text)temStr = Mid(Text1.Text, i, 1)If InStr(1, "子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥", temStr) <> 0 Then Text2.Text = Text2.Text & tem...
如何
在
vb中
检查
文本框
中包含特定字符
答:
以下为当在text1中按下按键时,判断是否为m或M,如果是,则屏蔽输入 Private Sub Text1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) = "m" Or Chr(KeyAscii) = "M" Then KeyAscii = 0 End If End Sub 以下为判断
文本框
是否包含字符 Private Sub Command1_Click()If InStr(LCase(Text1....
棣栭〉
<涓婁竴椤
16
17
18
19
21
22
23
24
25
涓嬩竴椤
灏鹃〉
20
其他人还搜