石陆软件屋百度VB吧枫叶在线枕善居博客园紫水晶工作室
|
Option Base 1 Dim a() As Integer Private Sub Form_Click() n = Val(InputBox("请输入打印行数")) ReDim a(n, n) ![]() 删除带子文件夹和文件的文件夹 Sub RecurseTree(CurrPath As String)'currpath问文件夹路径 Dim sFileName As String, newPath As String, sPath As String ![]() 添加 timer和label 各一个. 添加如下代码: Private Sub Form_Load() Label1.Caption = Format(Now, "dd号hh点mm分ss秒") ![]() 从程序中生成Exe文件 这篇文章要讨论的是在一个VB程序中如何产生出另一个Exe文件。 要实现这个目的,必须符合以下几个条件: 第一、编写这样的程序时,具备欲生成的Exe文件 第二、事先知道欲生成的Exe文件大小 ![]() |