vb 5大问题
1.用Shell "regsvr32 " & App.Path & "\abcdefghijklmnopqrstuvwxyz.ocx"注册控件，怎么不显示注册成功对话框？
2.修改d:\12345.txt属性->只读，非只读，隐藏，非隐藏
3.在d:\54321.txt第五段后加"1234567890qwertyuiopasdfghjklzxcvbnm"
4.把自己程序里的图片image.picture(256色)保存到wc:\12311231345345.bmp(256色)
5.给下面的程序加一点视觉效果（自己的一个程序的一部分的提取的梗概的改版）
Public b, a As Long
Public c As String
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function NTDomainUserName() As String
Dim strBuffer As String * 255
Dim lngBufferLength As Long
Dim lngRet As Long
Dim strTemp As String
lngBufferLength = 255
lngRet = GetUserName(strBuffer, lngBufferLength)
strTemp = UCase(Trim$(strBuffer))
NTDomainUser = strTemp
NTDomainUserName = Left$(strTemp, Len(strTemp) - 1)
End Function
Private Sub Form_Load()
On Error Resume Next
Form1.Hide
c = ""
For b = 1 To Len(NTDomainUserName)
If Mid(NTDomainUserName, b, 1) <> " " Then c = c & Mid(NTDomainUserName, b, 1)
Next b
Text1 = c
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\" &
相关问答：
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
怎么点击form2上的按钮 可以结束form1上正在进行的循环
form1里面添加一个变量：
Public bEnd As Boolean
循环代码添加：
bEnd = False
Do
...
If ......
VB中callbacke function 如下：
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim slength As Long, WndTitle As String ' title bar text length an ......
我在窗体正常运行的情况下 标题栏上可以动态显示数值
可是点击最小化按钮的后 ，在任务栏上的标题上就不变了？
怎么办
别折腾这些花架子，没意义
不会吧？
VB code:
Private Su ......
一道VB小程序
有两个列表框list1、 list2 。list1中初始化有15个不同的字母，而list2中是空白的 还有一个按钮command1,选中list1中的任意多个项目 然后点击按钮command1,则在list2中显示list1中被选中的项目。当� ......
