选择安装路径的列表框

goldenken

怎么能实现这个功能，一个下拉列表框，默认显示c：\，点击下拉按钮，出现电脑的磁盘列表（C盘,D盘，E盘，F盘。。。），选择磁盘，例如选D盘，就会在列表框中显示D:\，用来确定自动安装软件的位置用的，希望各位大侠帮帮忙

顽固不化

原帖由 goldenken 于 2009-1-31 15:30 发表
怎么能实现这个功能，一个下拉列表框，默认显示c：\，点击下拉按钮，出现电脑的磁盘列表（C盘,D盘，E盘，F盘。。。），选择磁盘，例如选D盘，就会在列表框中显示D:\，用来确定自动安装软件的位置用的，希望各位大侠帮 ...

我正好有一段，你参考一下。

$HDr = DriveGetDrive("FIXED")
Dim $sizeAll[$HDr[0] + 1]
Dim $sizeFre[$HDr[0] + 1]
Dim $SYS[$HDr[0] + 1]
Dim $xs[$HDr[0] + 1]
For $i = 1 To $HDr[0]
        $sizeAll[$i] = Int(DriveSpaceTotal($HDr[$i] & "\"))
        $sizeFre[$i] = Int(DriveSpaceFree($HDr[$i] & "\"))
        $SYS[$i] = DriveGetFileSystem($HDr[$i] & "\")
Next

$xs2 = ""
For $i = 1 To $HDr[0]
        $xs[$i] = StringUpper($HDr[$i]) & "盘，格式：" & $SYS[$i] & ",总空间约为：" & $sizeAll[$i] & "Mb,剩余空间约为：" & $sizeFre[$i] & "Mb。"
        If $i > 1 Then
                $xs2 = $xs2 & $xs[$i] & "|"
        EndIf
Next

$MBDriver = GUICtrlCreateCombo($xs[1], 16, 272, 464, 21)
GUICtrlSetData(-1, $xs2, $xs[1])

goldenken

原帖由 顽固不化 于 2009-1-31 15:44 发表

我正好有一段，你参考一下。

[au3]$HDr = DriveGetDrive("FIXED")
Dim $sizeAll[$HDr[0] + 1]
Dim $sizeFre[$HDr[0] + 1]
Dim $SYS[$HDr[0] + 1]
Dim $xs[$HDr[0] + 1]
For $i = 1 To $HDr[0]
        $sizeAll[ ...

初学，不太看得懂，能不能把整个窗体的代码都贴出来，谢谢

顽固不化

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\autoit3\Aut2Exe\Icons\WMCCFG.ico
#AutoIt3Wrapper_outfile=一条龙V51A.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=会声会影X2自动安装一条龙V5
#AutoIt3Wrapper_Res_Description=初级视编室 顽固不化
#AutoIt3Wrapper_Res_Fileversion=5.1.0.0
#AutoIt3Wrapper_Res_LegalCopyright=dvedit.5d6d.com
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("会声会影X2简体中文正式版安装", 497, 345, -1, -1)
GUISetBkColor(0xFFEECC)
$Pic1 = GUICtrlCreatePic("", 0, 0, 497, 113, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("说明", 8, 120, 481, 129)
$TEXT1 = "    会声会影X2一条龙安装盘采用最新的简体中文正式版精简制作，其中Ａ盘是主程序安装盘，Ｂ盘为插件工具盘，Ｂ盘收集了数个转场效果软件、会声会影补丁、与会声会影有关的软件等。请安装A盘后再安装B盘插件工具等。"
$TEXT2 = "    初级视编室一直致力于会声会影及其外围插件工具的自动化安装，为初学者提供方便快捷的软件作品，最初的安装“一条龙”名称就是指用户只需要点一两个键，全部安装工作会自动化完成。"
$TEXT3 = "    自动化安装过程中请不要动鼠标键盘，以免造成安装混乱。如有问题请访问我们的论坛（DVEDIT.5d6d.com），我们的技术人员会给予及时解答。点此说明访问论坛。"
$Label1 = GUICtrlCreateLabel($TEXT1 & @CRLF & $TEXT2 & @CRLF & $TEXT3, 20, 140, 460, 100)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group2 = GUICtrlCreateGroup("选择安装盘", 8, 256, 481, 49)
$HDr = DriveGetDrive("FIXED")
Dim $sizeAll[$HDr[0] + 1]
Dim $sizeFre[$HDr[0] + 1]
Dim $SYS[$HDr[0] + 1]
Dim $xs[$HDr[0] + 1]
For $i = 1 To $HDr[0]
        $sizeAll[$i] = Int(DriveSpaceTotal($HDr[$i] & "\"))
        $sizeFre[$i] = Int(DriveSpaceFree($HDr[$i] & "\"))
        $SYS[$i] = DriveGetFileSystem($HDr[$i] & "\")
Next

$xs2 = ""
For $i = 1 To $HDr[0]
        $xs[$i] = StringUpper($HDr[$i]) & "盘，格式：" & $SYS[$i] & ",总空间约为：" & $sizeAll[$i] & "Mb,剩余空间约为：" & $sizeFre[$i] & "Mb。"
        If $i > 1 Then
                $xs2 = $xs2 & $xs[$i] & "|"
        EndIf
Next

$MBDriver = GUICtrlCreateCombo($xs[1], 16, 272, 464, 21)
GUICtrlSetData(-1, $xs2, $xs[1])
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Button2 = GUICtrlCreateButton("开始安装", 270, 312, 80, 25, 0)
$Button3 = GUICtrlCreateButton("退    出", 397, 312, 80, 25, 0)
$Button4 = GUICtrlCreateButton("获取更新", 20, 312, 80, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button3
                        Exit
                Case $Label1
                        Run('RunDll32.exe url.dll,FileProtocolHandler "http://dvedit.5d6d.com"')
                Case $Pic1
                        Run('RunDll32.exe url.dll,FileProtocolHandler "http://dvedit.5d6d.com"')
                Case $Button4
                        Run('RunDll32.exe url.dll,FileProtocolHandler "http://dvedit.5d6d.com"')
                Case $Button2
                        
        EndSwitch
WEnd

ceoguang

Nice code
up

sxd

搭车问个问题 松下sd9 用什么编辑比较好啊

mts m2ts格式

番茄

原帖由 顽固不化 于 2009-1-31 16:30 发表
[au3]#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\autoit3\Aut2Exe\Icons\WMCCFG.ico
#AutoIt3Wrapper_outfile=一条龙V51A.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_R ...

能不能把  Case $Button2下的源码也贴出来。
我想想看看如果上面选择了安装在D盘的话，那么在 Case $Button2下怎么自动安装在D盘

范统.贾

Good Good Study
Day Day Up