求仿做QQ初始化或进度显示进度条
如上图所示，这个初始化图很好看
AU3如何仿做QQ初始化或进度显示进度条 就弄个gif图片不就行了 http://www.autoitx.com/thread-9707-1-1.html 回复 3# ceoguang
此帖看过，效果还过得去，但还不够精细 希望哪位大大能完善一下，那就更好 LZ那压根就不是什么进度条......
它就像GIF一样的 是不受你控制的 #NoTrayIcon
Opt("GUIResizeMode", 802)
Opt("GUIDataSeparatorChar", ChrW('0x00A4'))
Global $Color = 0x00ccff, $BkColor = 0xf7f7f7
$Lng1 = 'Used symbol :'
$LngSt = 'Start'
$LngSz = 'Size :'
$LngDl = 'Delay :'
$LngSty = 'Style :'
$LngSel = 'Choose'
$LngAdd = 'Add'
$hForm = GUICreate("Progress Bar", 380, 160 + 30, -1, -1, 0x00040000)
$hButton1 = GUICtrlCreateButton($LngSt, 260, 115, 80, 30)
GUICtrlCreateLabel($Lng1, 10, 43, 130, 17)
$symbol = GUICtrlCreateCombo('', 140, 40, 60)
GUICtrlSetData(-1, ' ' & ChrW('0x2588') & '¤|¤/¤\¤*¤(¤)¤' & ChrW('0x25CF') & '¤' & ChrW('0x25AA') & '¤' & ChrW('0x2022') & '¤' & ChrW('0x2039') & '¤' & ChrW('0x203A') & '¤' & ChrW('0x2206') & '¤' & ChrW('0x20AC') & '¤!¤.', ' ' & ChrW('0x2588'))
GUICtrlCreateLabel($LngSz, 10, 73, 130, 17)
$kol_sim = GUICtrlCreateCombo('', 140, 70, 60)
GUICtrlSetData(-1, '20¤30¤50¤100¤120¤200', '20')
GUICtrlCreateLabel($LngDl, 10, 103, 130, 17)
$Delay = GUICtrlCreateCombo('', 140, 100, 60)
GUICtrlSetData(-1, '10¤20¤50¤100¤200', '20')
GUICtrlCreateLabel($LngSty, 10, 133, 130, 17)
$Style = GUICtrlCreateCombo('', 140, 130, 60)
GUICtrlSetData(-1, '1¤2¤3¤4¤5', '1')
GUICtrlCreateGroup('', 205, 28, 160, 72)
$hSelect = GUICtrlCreateButton($LngSel, 210, 40, 60, 25)
$hAdd = GUICtrlCreateButton($LngAdd, 210, 70, 60, 25)
$Un = GUICtrlCreateCombo('', 280, 40, 60)
GUICtrlSetData(-1, '2588¤25A0¤F031¤25B2¤25BA¤25BC¤2590¤2666¤25D8¤263B', '2588')
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hButton1
$symbol0 = GUICtrlRead($symbol)
$Delay0 = GUICtrlRead($Delay)
$kol_sim0 = GUICtrlRead($kol_sim)
$aStartTPB = _TPB_ProgressOn(10, 5, $kol_sim0, 21, $symbol0)
For $i = 0 To 100
Sleep($Delay0)
_TPB_ProgressSet($aStartTPB, $i)
; GUICtrlSetData($hButton1, $i & " %")
Next
; GUICtrlDelete($aStartTPB)
; _TPB_ProgressClose($aStartTPB)
Case $hSelect
Run('charmap.exe')
Case $hAdd, $Un
$Un0 = ChrW('0x' & GUICtrlRead($Un))
GUICtrlSetData($symbol, $Un0, $Un0)
Case $Style
Switch GUICtrlRead($Style)
Case 1
$Color = 0x00CCFF
$BkColor = 0xF7F7F7
Case 2
$Color = 0xFF8700
$BkColor = 0xFFFF8D
Case 3
$Color = 0xFF0361
$BkColor = 0xFFDEDA
Case 4
$Color = 0x00A272
$BkColor = 0xE8EED8
Case 5
$Color = 0x515151
$BkColor = 0xF1F1F1
Case Else
$Color = 0x00CCFF
$BkColor = 0xF7F7F7
EndSwitch
EndSwitch
WEnd
Func _TPB_ProgressOn($left, $top, $amount, $height, $symbol)
If IsDeclared('aStartTPB') And IsArray($aStartTPB) Then GUICtrlDelete($aStartTPB) ; Delete
Local $aStartTPB, $String = ''
For $i = 1 To $amount
$String &= $symbol
Next
GUISetFont(12, 700)
$aStartTPB = GUICtrlCreateLabel($String, $left, $top, -1, $height)
GUICtrlSetData(-1, '')
GUICtrlSetColor(-1, $Color)
GUICtrlSetBkColor(-1, $BkColor)
; GUICtrlSetColor(-1, 0xff8700)
; GUICtrlSetBkColor(-1, 0xffff8d)
$aStartTPB = $amount
$aStartTPB = $symbol
Return $aStartTPB
EndFunc ;==>_TPB_ProgressOn
Func _TPB_ProgressSet($aStartTPB, $Prosent = 0)
If $Prosent < 0 Or $Prosent > 100 Then Return SetError(1, 0, 0)
Local $kol = Int($Prosent * ($aStartTPB / 100)), $String = ''
For $i = 1 To $kol
$String &= $aStartTPB
Next
If GUICtrlRead($aStartTPB) = $String Then Return
GUICtrlSetData($aStartTPB, $String)
EndFunc ;==>_TPB_ProgressSet
; Func _TPB_ProgressClose($aStartTPB)
; GUICtrlDelete($aStartTPB)
; EndFunc
页:
[1]