vb自动填充软件

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《vb自动填充软件》，欢迎阅读！

平时有些内容某一部分前面一致，但后面是按顺序的（如031-03199），从1-99自己填起来很麻烦！所以可以借助编程来实现自动填充。如果勾上了check还可以自动生成一个txt文件。这个软件还可以读取剪切板上的内容。

在写代码之前要添加4个command，6个text，1个label，一个check。 界面如下：



软件界面 代码如下：

Private Sub Command1_Click()

Dim str1 As String '定义一个字符变量

For x = Text1.Text To Text5.Text '定义循环体，text1的数值作为循环开始，text5数值作为循环结束

str1 = str1 & Text3.Text & x & Text2.Text & vbCrLf '主要部分，自动填充的代码 Text4 = str1 '将结果在text4里显示 Next

If Check1.Value = 1 Then '当check被勾上

Open "网址.txt" For Output As #1 '创建一个名为网址的TXT文件 Write #1, (str1) '将str1的结果写入网址.txt文件里 Close #1 '关闭文件 End If End Sub

Private Sub Command2_Click() End '退出按钮 End Sub




Private Sub Command3_Click() Text4.Text = "" '清除按钮 End Sub

Private Sub Command4_Click() Text6.Text = "" '清除text6的内容

Command5.Enabled = True '按钮5可用 Command4.Enabled = False '按钮4不可用 End Sub

Private Sub Command5_Click()

Command4.Enabled = True '按钮4可用

Text6.SelText = Clipboard.GetText '将剪切板的内容复制到text6

Label.Caption = "按“清除内容”按钮可恢复读取按钮(点击进入wellsonsen的微博)" End Sub

Private Sub Label4_Click()

End Sub

Private Sub Form_Load()

Form1.Picture = LoadPicture("") '软件界面不载入图片（这段代码可不要） End Sub

Private Sub Label_Click()

Shell "C:\Program Files\Internet Explorer\iexplore.exe http://weibo.com/wellsonsen", vbNormalFocus '用浏览器打开作者的微博 End Sub

Private Sub Text6_Change()

Command5.Enabled = False '按钮5不可用

Label.Caption = " 清除成功(点击进入wellsonsen的微博)" '在label上显示文字 End Sub

Private Sub Timer3_Timer()

End Sub

Private Sub Timer2_Timer()

End Sub

本文来源：https://www.wddqxz.cn/e0617c3c51d380eb6294dd88d0d233d4b14e3f68.html