Dim i As Integer Private Sub Command1_Click()With ListView1.ListItems.Add .SubItems(1) = i & "a".SubItems(2) = i & "b".SubItems(3) = i & "c"End With i = i + 1 End Sub Private Sub Command2_Click()Text1.Text = ListView1.SelectedItem.SubItems(3)End Sub Priv...
假设窗体上有控件text1,text2,text3，设置它们的属性为 Multiline=ture,scrollbars=3 ；则可分2步实现text1滚动时，text2,text3也同时滚动功能：一、新建一个模块，复制下面代码：Option Explicit '滚动条信息结构体 Public Type SCROLLINFO cbSize As Long fMask As Long nMin As Long nMax As ...
在“转换”按钮上双击，输入代码：Dim a As String, b As Integer a = text1.Text b = CInt(a)If b <= 21 Then text2.Text = (b - 1) \ 3 + 1 Else text2.Text = (b - 22) \ 4 + 8 End If 就可以了。已测试通过。
意思就是以字符串的方式获取网页(地址为text1.text中的值)的源码，源码返回到text2.text中 其中：icstring为获取源码的方式。有icstring=0 和icbytearray=1 两种方式 icbytearray为字节数组的方式获取源码，下载文件是可用该方式。但注意保存成文件时想对应，应该用 binary 写文件 ...
strLine j = j + 1 If i = j Then Text1.Text = Split(strLine, ",")(0) Combo1.Text = Split(strLine, ",")(1) Text2.Text = Split(strLine, ",")(2) Text3.Text = Split(strLine, ",")(3) End IfLoopClose #1If i = j Then i = i - j...
'text1的MultiLine属性 设置为True Private Sub Form_Load()Text1.Text = ""Open "g:\1.txt" For Input As #1 While Not EOF(1)Line Input #1, a If InStr(1, a, "9") > 0 Then Text1.Text = Text1.Text & a & vbCrLf End If Wend Close #1 End Sub ...
在调用该函数之后,新文件创建在指定的磁盘上。这里重申一下, 当退出应用程序时,必须物理地将该文件从磁盘上删除。样例程序 该程序显示了如何在VB应用程序中创建一个临时文件。1.在Visual Basic中开始一个新的工程,采用缺省的方法建立For m1。2.将如下声明语句添加到Form1的通用声明部分中(请注意该声明...
用VB做一个记事本实在不很复杂,我们完全可以通过向导来很方便地做出来。但本文只打算讨论用手动方法制作记事本,旨在向VB初学者展示:学VB原来是如此容易! 通过阅读、研究本文并按本文所述进行尝试,初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件,怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。
Private Sub Drive1_Change()Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click()Text1.Text = File1.Path & File1.FileName Image1.Picture = LoadPicture(File1.Path & File1.FileName)End Sub Private Sub Form_Load()File1.Pattern = "*.bmp;*.gif;*.jpg"End Sub 第二题...
当用代码或菜单命令把另一段数据放到 Clipboard 中时，原 Clipboard 中相同格式的数据会丢失。Clipboard 对象常数 常数 值 描述 vbCFRTF -16639 Rich Text 格式（ rtf 文件）vbCFLink -16640 DDE 对话信息 vbCFText 1 文本（.txt 文件）vbCFBitmap 2 位图（.bmp 文件）vbCFMetafile 3 元文件（....