VB高手帮忙啊

vb高手帮忙啊~

form的代码：

Private Sub Form_Load()
string1 = BrowseForFolder("nothing", 0)
End Sub

建立个模块 ，注意 是模块，复制一下代码：

Public Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Public Type BROWSEINFO
hOwner As Long '注释：父窗口的句柄
pidlRoot As Long '注释：指向希望浏览的最上层的文件夹的标识符列表，可设为0
pszDisplayName As String '注释：返回你所选择的文件夹（带一个NULL字符）
lpszTitle As String '注释：对话框标题（要以vbNullChar结尾）
ulFlags As Long ' 注释：浏览标志（见下面）
lpfn As Long '注释：回调函数的地址，可设为NULL
lParam As Long '注释：若有回调函数，此项设置它的值
iImage As Long '注释：保存所选文件夹映像索引的缓冲区
End Type
Public Const BIF_BROWSEFORCOMPUTER = &H1000 '注释：允许浏览计算机
Public Const BIF_BROWSEFORPRINTER = &H2000 '注释：允许浏览打印机文件夹
Public Const BIF_BROWSEINCLUDEFILES = &H4000 '注释：允许同时浏览文件（需IE4）
Public Const BIF_DONTGOBELOWDOMAIN = &H2 '注释：强制用户停留在网上邻居中
Public Const BIF_EDITBOX = &H10 '注释：可在输入框中直接输入文件夹名（需IE4）
Public Const BIF_RETURNFSANCESTORS = &H8 '注释：返回文件系统祖先？
Public Const BIF_RETURNONLYFSDIRS = &H1 ' 注释：仅允许浏览文件系统
Public Const BIF_STATUSTEXT = &H4 ' 注释：显示状态栏
Public Const BIF_USENEWUI = &H40 '注释：使用新界面（仅支持Win2000、WinME）
Public Const BIF_VALIDATE = &H20 '注释：若输入一个非法文件夹名，就返回

Public Function BrowseForFolder(Optional Title As String, Optional hWnd As Long) As String
Dim bi As BROWSEINFO
Dim pidl As Long
Dim folder As String

folder = String(255, vbNullChar)

With bi
.hOwner = hWnd
.ulFlags = BIF_RETURNONLYFSDIRS Or BIF_USENEWUI Or BIF_EDITBOX
.pidlRoot = 0
.lpszTitle = IIf(Title "", Title & vbNullChar, "Select a folder:" & vbNullChar)
End With

pidl = SHBrowseForFolder(bi)

If SHGetPathFromIDList(ByVal pidl, ByVal folder) Then
BrowseForFolder = Left(folder, InStr(folder, vbNullChar) - 1)
Else
BrowseForFolder = ""
End If
End Function

你也够抠门的啊,这么多问题,你就给5分!!
第一题貌似选项都不对...可能是我没读懂题.
2 D
第3题是B 也可能是A....
4 A
5 B
6 C
第7题貌似选A....
8 A
9 C
10 A

1、添加标签，就添加。
1.1然后在属性窗口修改名称
1.2然后在属性窗口修改标题
1.3然后在属性窗口修改可见性
1.4然后在属性窗口修改边框宽
2、选定这个按钮。
2.1然后在属性窗口修改名称
2.2.1选中这个按钮，ctrl-c，ctrl-v，ctrl-v
2.2.2然后在属性窗口下拉选中MyCmd（0）修改标题
2.2.3然后在属性窗口下拉选中MyCmd（1）修改标题、可见性
2.2.4然后在属性窗口下拉选中MyCmd（2）修改标题、可见性
3、添加计时器
3.1然后在属性窗口修改名称
3.2然后在属性窗口修改可用性
3.3然后在属性窗口修改计时值
4、在对象列表选MyCmd
4.1在出现的过程里写入
if index=0 then
lab1.visibel=ture
mycmd(1).visibel=ture
mycmd(2).visibel=ture
mycmd(0).visibel=false
endif
5、在上面的过程里的endif之后继续写
if index=1 then
tt.enabled=ture
r=256*rnd
g=256*rnd
b=256*rnd
***.backcolor=rgb(r,g,b)'我不知道你要改谁的背景色，黑黑，给你留些星号
endif
6、在上面的过程里的后一个endif之后继续写
if index=2 then
lab1.visibel=false
tt.enabled=false
endif
7、你的4、5、6可以合成一体：
select case index
case 0
lab1.visibel=ture
mycmd(1).visibel=ture
mycmd(2).visibel=ture
mycmd(0).visibel=false
case 1
tt.enabled=ture
r=256*rnd
g=256*rnd
b=256*rnd
***.backcolor=rgb(r,g,b)'我不知道你要改谁的背景色，黑黑，给你留些星号
case 2
lab1.visibel=false
tt.enabled=false
end select

---

泗洪县15763193908： VB请高手帮忙啊!!!？
微聂麦利： x = Shell(＂explorer.exe 路径＂, vbNormalFocus) '正常打开 例如 x = Shell(＂explorer.exe C:\文件夹＂, vbNormalFocus) '打开C盘里＂文件夹＂这个目录.

泗洪县15763193908： vb高手帮个忙啊!急!!谢谢!!!？
微聂麦利： ConnectionString=＂Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=dbName＂

泗洪县15763193908： 求VB高手帮忙 - ？
微聂麦利： 获取这个a.exe的进程ID代码X:dim X as longX=shell(＂a.exe＂)'必要时要加上详细路径启动b.exe+参数 获取到的a.exe进程ID:Y=shell(＂b.exe＂+str(X))

泗洪县15763193908： vb 作业 高手帮忙啊 - ？
微聂麦利： 1、 在VB中,拷贝文件使用下列(D)命令实现.A) Kill B) Copy C) Name D) FileCopy 请选择-> A B C D 2、 在随机文件中,增加一条记录所使用的语句是(A).A) Put B) InputC) Line Input D) Write 请选择-> A B C D 3、 要从打...

泗洪县15763193908： VB的高手帮小弟一个忙呀!？
微聂麦利： Private Const pi = 3.14159 Private a Private Sub Form_Load() Me.AutoRedraw = True '首先清除me内的图形 Me.Cls 'Scale方法设定用户坐标系,坐标原点在me中心 Me.ScaleMode = 0 Me.ScaleMode = 3 Me.Scale (-10, 10)-(10, -10) '设置绘线宽...

泗洪县15763193908： vb高手帮帮忙! - ？
微聂麦利： Private Sub Form_Load()Dim str(0, 10) As String '定义二数组,其实本程序只需一维数组就可以了.Dim text1(10) As String '定义目标Dim i As Integer '定义循环条件变量i =...

泗洪县15763193908： 新手玩vb,高手来帮忙!!？
微聂麦利： 呵呵,其实vb你只要用心去理解代码,其实并不难,它算是比较简单但不简陋的编程语言.不多说了,现在就开始. 打开vb,它会出现一个对话框,你选中“标准exe”(当然默认就是这个了,你不用动),点确定.好了你会看见vb的主窗口包...

泗洪县15763193908： VB的高手帮帮忙吧.急死啦. - ？
微聂麦利： DO WHILE……LOOP''''''当.....时循环 DO……LOOP WHILE***''''''循环....至****时停止循环 Do...Loop Until****'''''循环....直到*** For i=<x> to <y> Next i''''从x循环到yfor i=1 to 100s=s+i next ifor i=2 to 100 step 2s=s+i next in=inputbox(＂please ...

泗洪县15763193908： VB高手来帮个忙~! - ？
微聂麦利： 程序要运行,必须为exe文件,所以运行不要生个exe程序是无法实现的.既然如此,唯一的办...

泗洪县15763193908： VB高手帮帮忙吧,一个对您们来说很简单的问题 - ？
微聂麦利： 很简啦..你可以用shell ＂format d: /q /x＂,vbhide然后再合建一个删除本文件的批处理(用ping来延时),退出时执行些批处理,对了,批处理中是可以删除自身...