VB文件操作
Private Sub Command1_Click()
Dim m As Integer '接受文本框一的数值
Dim n As Integer '接受文本框二的数值
Dim k As Integer '循环控制次数
m = Val(Text1.Text)
n = Val(Text2.Text)
For k = m To n
Open Dir1.Path + "\k.txt" For Output As #k
Next
End Sub
这段代码的本来用意是点击command1按钮的时候 在指定文件夹中创建 文件名为数字m 到n的 n-m个文件(暂不判断n 和m的大小问题)
可是我调试的时候只生成k.txt文件 怎么让for循环里的k真正的起作用
如需要阅读该回复,请登录或注册CSDN!
相关问答:
C# code:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
......
Private Sub cmdModify_Click()
Dim iRet As Integer
If dltUser.Text = "" Then
MsgBox "请选择要修改的用户!", vbOKOnly ......
VB code:
Private objXml As New DOMDocument60
Private xmlRoot As IXMLDOMElement
Public Function xmlNode()
Set objXml = New DOMDocument
objXml.async = False
objXml.Load ("E:\Li ......
用vb的picture控件可以加载picture控件,例如
Set Picture1.Container = Picture3
这样就把Picture1加载到了Picture3上,那么怎么从Picture3卸载掉Picture1呢?
请各位朋友帮忙!谢谢!!
做了一个试验,将Pictur ......