VFP ·R¥ÎªÌªÀ°Ï ­º­¶ VFP ·R¥ÎªÌªÀ°Ï
¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
 
 ±`¨£°ÝÃD±`¨£°ÝÃD   ·j´M·j´M   ·|­û¦Cªí·|­û¦Cªí   ·|­û¸s²Õ·|­û¸s²Õ   ·|­ûµù¥U·|­ûµù¥U 
 ­Ó¤H¸ê®Æ­Ó¤H¸ê®Æ   µn¤JÀˬd±zªº¨p¤H°T®§µn¤JÀˬd±zªº¨p¤H°T®§   µn¤Jµn¤J

[¤u¨ã] °õ¦æ¶i«×Åã¥Ü ¦Ê¤À¤ñ%

 
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD  
µoªí¤H ¤º®e
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 1 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤­¤ë 21, 2003 12:55 am    ¤å³¹¥DÃD: [¤u¨ã] °õ¦æ¶i«×Åã¥Ü ¦Ê¤À¤ñ% ¤Þ¨¥¦^ÂÐ

VFP¸ÌÀYªþ¦³¤@­Ó§K¶O¶i«×Åã¥Ü¾¹
ÁöµM¶§¬KÂI,¦ý¤]«Ü¨¬°÷¥Î

µ{¦¡½X¦p¤U
LOCAL loTherm, lcTask, lnPercent, lnSeconds
loTherm = NewObject("_thermometer","_therm","",THIS.Parent.txtTitle.Value)
lcTask = THIS.Parent.txtTask.Value

WITH loTherm
.Show()
FOR i = 1 TO THIS.Parent.spnDuration.Value
lnPercent = m.i/THIS.Parent.spnDuration.Value*100
.Update(lnPercent, lcTask+" "+TRANS(lnPercent))
lnSeconds = SECONDS()
DO WHILE lnSeconds+1>SECONDS()
ENDDO
ENDFOR
.Complete()
ENDWITH
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 2 ¼Ó

µoªíµoªí©ó: ¬P´Á¤» ¤­¤ë 24, 2003 4:32 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

§@ªÌ: ¬õªê
Ãö©ó¶i«×±øªº»¡©ú¤w¸g¦³«Ü¦h¦a¤è¦³¤F¡A¦Ó¥»¤å­n¤¶²Ðªº¬OVFP¥»¨­¦Û±aªº¶i«×±ø¡A§@ªÌ¹ï¤§µy°µ¤F­×§ï¡A°õ¦æ®Éªº¤¶­±¦p¤U¡G

¥»¨Ò¨ú¦ÛVFP¦Û±aµ{¦¡vfpxtab.prg¡I
¬õªê¾ã²z©ó2001¦~4¤ë21¤é

#DEFINE THERMCOMPLETE_LOC "§¹¦¨¡C"
#DEFINE WIN32FONT '§ºÅé'
#DEFINE WIN95FONT '§ºÅé'
#DEFINE DBCS_LOC "81 82 86 88"

para cMsgInfo,nMaxValue
oProcessBar= CREATEOBJECT("thermometer",cMsgInfo,nMaxValue)
oProcessBar.show

*-- ©w¸q¶i«×±øªí³æÄÝ©Ê
DEFINE CLASS thermometer AS form

Top = 196
Left = 142
Height = 100
Width = 356
AutoCenter = .T.
BackColor = RGB(192,192,192)
BorderStyle = 0
Caption = ""
Closable = .F.
ControlBox = .F.
MaxButton = .F.
MinButton = .F.
Movable = .F.
AlwaysOnTop = .F.
iPercentage = 0
cCurrentTask = ''
shpThermBarMaxWidth = 322
cThermRef = ""
MaxValue = 0
Name = "thermometer"

*-- ¥~Ãä®Ø¥ª«G½u
ADD OBJECT shape3 AS shape WITH ;
BorderColor = RGB(255,255,255), ;
Height = 97, ;
Left = 1, ;
Top = 1, ;
Width = 1, ;
Name = "Shape3"

*-- ¥~Ãä®Ø¥ª·t½u
ADD OBJECT shape10 AS shape WITH ;
BorderColor = RGB(128,128,128), ;
Height = 93, ;
Left = 3, ;
Top = 3, ;
Width = 1, ;
Name = "Shape10"

*-- ¥~Ãä®Ø¤W«G½u
ADD OBJECT shape2 AS shape WITH ;
BorderColor = RGB(255,255,255), ;
Height = 1, ;
Left = 1, ;
Top = 1, ;
Width = 353, ;
Name = "Shape2"

*-- ¥~Ãä®Ø¤W·t½u
ADD OBJECT shape9 AS shape WITH ;
BorderColor = RGB(128,128,128), ;
Height = 1, ;
Left = 3, ;
Top = 3, ;
Width = 349, ;
Name = "Shape9"

*-- ¥~Ãä®Ø¥k«G½u
ADD OBJECT shape8 AS shape WITH ;
BorderColor = RGB(255,255,255), ;
Height = 94, ;
Left = 352, ;
Top = 3, ;
Width = 1, ;
Name = "Shape8"

*-- ¥~Ãä®Ø¥k·t½u
ADD OBJECT shape6 AS shape WITH ;
BorderColor = RGB(128,128,128), ;
Height = 98, ;
Left = 354, ;
Top = 1, ;
Width = 1, ;
Name = "Shape6"

*-- ¥~Ãä®Ø¤U«G½u
ADD OBJECT shape7 AS shape WITH ;
BorderColor = RGB(255,255,255), ;
Height = 1, ;
Left = 3, ;
Top = 96, ;
Width = 350, ;
Name = "Shape7"

*-- ¥~Ãä®Ø¤U·t½u
ADD OBJECT shape4 AS shape WITH ;
BorderColor = RGB(128,128,128), ;
Height = 1, ;
Left = 1, ;
Top = 98, ;
Width = 354, ;
Name = "Shape4"


*-- Âл\¾ã­Óªí³æ
ADD OBJECT shape1 AS shape WITH ;
BackStyle = 0, ;
Height = 100, ;
Left = 0, ;
Top = 0, ;
Width = 356, ;
Name = "Shape1"


*-- ¶i«×±ø¤WÃä
ADD OBJECT shape11 AS shape WITH ;
BorderColor = RGB(128,128,128), ;
Height = 1, ;
Left = 16, ;
Top = 61, ;
Width = 322, ;
Name = "Shape11"

*-- ¶i«×±ø¤UÃä
ADD OBJECT shape12 AS shape WITH ;
BorderColor = RGB(255,255,255), ;
Height = 1, ;
Left = 16, ;
Top = 77, ;
Width = 323, ;
Name = "Shape12"

*-- ¶i«×±ø¥ªÃä
ADD OBJECT shape13 AS shape WITH ;
BorderColor = RGB(128,128,128), ;
Height = 16, ;
Left = 16, ;
Top = 61, ;
Width = 1, ;
Name = "Shape13"

*-- ¶i«×±ø¥kÃä
ADD OBJECT shape14 AS shape WITH ;
BorderColor = RGB(255,255,255), ;
Height = 17, ;
Left = 338, ;
Top = 61, ;
Width = 1, ;
Name = "Shape14"

*-- ¶i«×±ø
ADD OBJECT shape5 AS shape WITH ;
BorderStyle = 0, ;
FillColor = RGB(192,192,192), ;
FillStyle = 0, ;
Height = 15, ;
Left = 17, ;
Top = 63, ;
Width = 322, ;
Name = "Shape5"

*-- ¶i«×±ø¼ÐÃD©³¦â
ADD OBJECT lbltitle AS label WITH ;
FontName = WIN32FONT, ;
FontSize = 9, ;
BackStyle = 0, ;
BackColor = RGB(192,192,192), ;
Caption = "", ;
Height = 16, ;
Left = 18, ;
Top = 14, ;
Width = 319, ;
WordWrap = .F., ;
Name = "lblTitle"

*-- ·í«e¥ô°È¦WºÙ
ADD OBJECT lbltask AS label WITH ;
FontName = WIN32FONT, ;
FontSize = 9, ;
BackStyle = 0, ;
BackColor = RGB(192,192,192), ;
Caption = "", ;
Height = 16, ;
Left = 18, ;
Top = 35, ;
Width = 319, ;
WordWrap = .F., ;
Name = "lblTask"


*-- ¶i«×«ü¥Ü±ø
ADD OBJECT shpthermbar AS shape WITH ;
BorderStyle = 0, ;
FillColor = RGB(128,128,128), ;
FillStyle = 0, ;
Height = 16, ;
Left = 17, ;
Top = 62, ;
Width = 0, ;
Name = "shpThermBar"


*-- ¦Ê¤À¤ñ«ü¥Ü¡]¶Â¦â¡^
ADD OBJECT lblpercentage AS label WITH ;
FontName = WIN32FONT, ;
FontSize = 9, ;
BackStyle = 0, ;
Caption = "0%", ;
Height = 13, ;
Left = 170, ;
Top = 63, ;
Width = 16, ;
Name = "lblPercentage"

*-- ¦Ê¤À¤ñ«ü¥Ü¡]¥Õ¦â¡^
ADD OBJECT lblpercentage2 AS label WITH ;
FontName = WIN32FONT, ;
FontSize = 9, ;
BackColor = RGB(0,0,128), ;
BackStyle = 0, ;
Caption = "Label1", ;
ForeColor = RGB(255,255,255), ;
Height = 13, ;
Left = 170, ;
Top = 63, ;
Width = 0, ;
Name = "lblPercentage2"

*-- °h¥X«H®§
ADD OBJECT lblescapemessage AS label WITH ;
FontBold = .F., ;
FontName = WIN32FONT, ;
FontSize = 9, ;
Alignment = 2, ;
BackStyle = 0, ;
BackColor = RGB(192,192,192), ;
Caption = "", ;
Height = 14, ;
Left = 17, ;
Top = 80, ;
Width = 322, ;
WordWrap = .F., ;
Name = "lblEscapeMessage"


*!*********************************************************************
*!
*! Procedure: complete
*!
*!*********************************************************************

PROCEDURE complete
* This is the default complete message
parameters m.cTask
private iSeconds
if parameters() = 0
m.cTask = THERMCOMPLETE_LOC
endif
this.ShowBar(100,m.cTask)
ENDPROC


*!*********************************************************************
*!
*! Procedure: ShowBar
*!
*!*********************************************************************

PROCEDURE ShowBar
*-- Åã¥Ü¶i«×«ü¥Ü¥H¤Î·í«e¥ô°È¦WºÙ

parameters iProgress,cTask

if parameters() >= 2 .and. type('m.cTask') = 'C'
this.cCurrentTask = m.cTask
endif

if ! this.lblTask.Caption == this.cCurrentTask
this.lblTask.Caption = this.cCurrentTask
endif

m.iPercentage = m.iProgress

m.iPercentage = int(m.iPercentage*100/this.MaxValue)


*-- ­pºâ¶i«×±øªº¼e«×
if len(alltrim(str(m.iPercentage,3)))<>len(alltrim(str(this.iPercentage,3)))
iAvgCharWidth=fontmetric(6,this.lblPercentage.FontName, ;
this.lblPercentage.FontSize, ;
iif(this.lblPercentage.FontBold,'B','')+ ;
iif(this.lblPercentage.FontItalic,'I',''))
this.lblPercentage.Width=txtwidth(alltrim(str(m.iPercentage,3)) + '%', ;
this.lblPercentage.FontName,this.lblPercentage.FontSize, ;
iif(this.lblPercentage.FontBold,'B','')+ ;
iif(this.lblPercentage.FontItalic,'I','')) * iAvgCharWidth
this.lblPercentage.Left=int((this.shpThermBarMaxWidth- ;
this.lblPercentage.Width) / 2)+this.shpThermBar.Left-1
this.lblPercentage2.Left=this.lblPercentage.Left
endif
this.shpThermBar.Width = int((this.shpThermBarMaxWidth)*m.iPercentage/100)
this.lblPercentage.Caption = alltrim(str(m.iPercentage,3)) + '%'
this.lblPercentage2.Caption = this.lblPercentage.Caption

*-- ½Õ¾ã¶i«×«ü¥Üªº¶Â¥Õ¥æ´À
if this.shpThermBar.Left + this.shpThermBar.Width -1 >= ;
this.lblPercentage2.Left
if this.shpThermBar.Left + this.shpThermBar.Width - 1 >= ;
this.lblPercentage2.Left + this.lblPercentage.Width - 1
this.lblPercentage2.Width = this.lblPercentage.Width
else
this.lblPercentage2.Width = ;
this.shpThermBar.Left + this.shpThermBar.Width - ;
this.lblPercentage2.Left - 1
endif
else
this.lblPercentage2.Width = 0
endif
this.iPercentage = m.iPercentage

*-- ·í¶i«×¨ì100%®É¡AÄÀ©ñ¶i«×ªí³æ
if m.iPercentage >= 100
wait clear
??chr(7)
oProcessbar.release
endif

ENDPROC


*!*********************************************************************
*!
*! Procedure: Init
*!
*!*********************************************************************

PROCEDURE Init

parameters cTitle, nMaxValue

wait clear

if type("nMaxValue") <> "N"
nMaxValue = 100
endif
this.MaxValue = nMaxValue

this.lblTitle.Caption = iif(empty(m.cTitle),'',m.cTitle)
this.shpThermBar.FillColor = rgb(0,0,128)
local cColor

*-- ®Ú¾Ú¥~Æ[³]¸m½Õ¾ãªí³æ¤WªºÃC¦â©M¦rÅéµ¥¡C
if fontmetric(1, WIN32FONT, 9, '') <> 13 .or. ;
fontmetric(4, WIN32FONT, 9, '') <> 2 .or. ;
fontmetric(6, WIN32FONT, 9, '') <> 5 .or. ;
fontmetric(7, WIN32FONT, 9, '') <> 11
this.SetAll('FontName', WIN95FONT)
endif

m.cColor = rgbscheme(1, 2)
m.cColor = 'rgb(' + substr(m.cColor, at(',', m.cColor, 3) + 1)
this.BackColor = &cColor
this.Shape5.FillColor = &cColor
ENDPROC

ENDDEFINE


Ruey ¦b ¬P´Á¤» ¤­¤ë 24, 2003 4:36 pm §@¤F²Ä 1 ¦¸­×§ï
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 3 ¼Ó

µoªíµoªí©ó: ¬P´Á¤» ¤­¤ë 24, 2003 4:33 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¦p¦ó¦Û¤v»s§@¶i«×±ø
VFPùØ´£¨Ñ¤F¶i«×±øªº±±¨î¶µ¡A¦ý¬OÁÙ»ÝOCXªº¤ä«ù¡A·|¨Ï³Ì«á¥Í¦¨ªº¦w¸Ëª©¼W¥[®e¶q¤Î¨t²Îªº¤£¥²­nªº¶}¤ä¡A¬°¦¹¡A§Ú­Ì¥i¥H¥Î»s§@Ãþªº¤è¦¡¨Ó¹ê²{¶i«×±øªº®ÄªG¡A¨Ï¾Þ§@¤¶­±§ó¬üÆ[¡A¦p¤U¬O¹ê²{¤èªk¡G
²Ä¤@¨B¡G
·s«Ø¤@­ÓÃþ¡AÃþ¦W¬°ProcessBar¡A¿ï¾Ü¬£¥Í©ó¬°Container¡A¦sÀx©óMyClassLib¡A³Ì«á½T©w¡A¼u¥X¤@­Óµøµ¡¡A§Y¬°¶i«×±øªº¥~¦æ¡A½Õ¾ã¨ä§Îª¬¦¨ªø±ø¦æ¡C
²Ä¤G¨B¡G
¦bProcessBar¤W¤À§O¥ý«á©ñ¸m¨â­Ó¼ÐÅÒ, Name¤À§O¬O Bar ©M Percent¡A¤@­Ó¬O¶i«×«ü¥Ü¡A¤@­Ó¬O¦Ê¤À¼Æ«ü¥Ü¡C¨Ã§âBarªº­I´º¦â³]¬°²`ÂŦâ¡A§âPercentªº­I´º¦â³]¬°¶À¦â¡A¥B¬°³z©ú¡C
¹ï¦¹Ãþ·s¼W¨â­ÓÄÝ©Ê¡GMaxValue ©M Value¡A¤À§O¬O³Ì¤j­È©M·í«e­È¡A¨âªÌ¸ê®ÆÃþ«¬§¡¬°¼Æ¦r«¬¡C
²Ä¤T¨B¡G
¦bProcessBarªºªº¤èªkInit Eventªì©l®É¡A¼g¤J¦p¤U¥N½X¡G
this.bar.left=0
this.bar.top=0
this.bar.width=0
this.bar.height=this.height
this.percent.caption=" 0 %"
this.percent.left=(this.width-this.percent.width)/2
this.percent.top=(this.height-this.percent.height)/2
·s¼WProcessBarªº¤èªkShow¡A¨ä¤èªk¼g¤U¦p¤U¥N½X¡G
LPARAMETERS nValue
nValue=iif(nValue<0,0,nValue)
this.value=nValue

this.bar.width=(this.value*this.width)/(this.MaxValue)
this.percent.caption=allt(str(this.value*100/this.MaxValue))+" %"
²Ä¥|¨B¡G
½Õ¾ãProcessBarªº¤j¤p¨ì¤@­Ó¦X¾Aªº¤ñ¨Ò¡A¦sÀÉÃö³¬¡C¤@­Ó¶i«×±øªºÃþ´N§¹¦¨¤F¡C
²Ä¤­¨B¡GÀ³¥Î¥Ü¨Ò
·s«Ø¤@­Óªí³æForm1,¦bªí³æ¤W¤W©ñ¤J­è¤~ªºÃþ¡A¦¹®É±±¨î¶µ¦W¬°ProcessBar1¡A¦A²K¥[¤@­Ó©R¥O«ö¯ÃButtonCommand1¡A¦b¨äClick¨Æ¥ó¤¤¼g¤J¦p¤U¥N½X¡G
1. thisform.processbar1.maxvalue=1000
for n=1 to 1000
thisform.processbar1.show(n)
endfor
2. use example.dbf
thisform.processbar1.maxvalue=recc()
go top
do while .not.eof()
thisform.processbar1.show(recn())
skip
enddo
use
¹B¦æ¦¹ªí³æÆ[¬Ý¹B¦æ®ÄªG¡C

_________________
#############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~­ì¨Ó©¯ºÖ¨º»ò²³æ!!

¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 4 ¼Ó

µoªíµoªí©ó: ¬P´Á¤é ¤C¤ë 13, 2003 2:18 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¸ÌÀY¬O3Dªº³á

§@ªÌÁÙ¯u¬O§Q®`

¨º3DªºªFªF³º¬O¤@­Ó§Ú¤£±`¥Îªº¤¸¥ó
µ{¦¡½X¤ñ¤W­±¨â­Ó§@ªÌ¤Ö¤Ó¦h¤F......

¤j®a¤U¸ü¬Ý¬Ý,¦³¨Ï¥Î¶i«×±øªº
¤£§«­×§ï¸Û¨º¹³ªº¤è¦¡§a

_________________
#############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~­ì¨Ó©¯ºÖ¨º»ò²³æ!!

¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 5 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤C¤ë 12, 2006 6:37 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

VFP¸ÌÀYªþ¦³¤@­Ó§K¶O¶i«×Åã¥Ü¾¹
ÁöµM¶§¬KÂI,¦ý¤]«Ü¨¬°÷¥Î

it is good

_________________
#############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~­ì¨Ó©¯ºÖ¨º»ò²³æ!!

¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
Ruey



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 6 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤C¤ë 12, 2006 6:37 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¥D­n¤£·|°{°{ªº~~~~
_________________
#############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~­ì¨Ó©¯ºÖ¨º»ò²³æ!!

¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
goodnight



µù¥U®É¶¡: 2008-10-13
¤å³¹: 472
¨Ó¦Û: ¥x«n¥«

²Ä 7 ¼Ó

µoªíµoªí©ó: ¬P´Á¤@ ¤E¤ë 10, 2012 9:57 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¹ï·s¤â¨Ó»¡¹ê¦b¤Ó´Î¤F, ±À~~~~
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó ¶®ªê°T®§³q MSN Messenger
goodnight



µù¥U®É¶¡: 2008-10-13
¤å³¹: 472
¨Ó¦Û: ¥x«n¥«

²Ä 8 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤G¤ë 21, 2019 5:02 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¤£¦n·N«ä, ½Ð°Ý¤@¤U, §Ú¸ÕµÛ¥h°õ¦æ¬õªê¨º­Óµ{¦¡, ·Q¬Ý¤@¤Uµe­±

¬O°õ¦æ¨S¦³µe­±, ¬O­þ¥X¿ù¤F?
§Ú¦³§ï¤F¤@¤U

¥N½X:

*para cMsgInfo,nMaxValue
cMsgInfo = "¶i«×±ø"
nMaxValue = 100
oProcessBar= CREATEOBJECT("thermometer",cMsgInfo,nMaxValue)
oProcessBar.show

_________________
§Æ±æ¦³§ó¦h¤H¨Ó°Ñ»P
VFP wiki - »Ý­n¤j®a¤@°_§¹¦¨ªºVFP¹q¤l®Ñ»PFAQ
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó ¶®ªê°T®§³q MSN Messenger
garfield
Site Admin


µù¥U®É¶¡: 2003-01-30
¤å³¹: 2157


²Ä 9 ¼Ó

µoªíµoªí©ó: ¬P´Á¥| ¤G¤ë 21, 2019 6:04 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

§A­n¥ý public oProcessBar ¦Ado §Aªºµ{¦¡¤~¦æ,
¤£µM oProcessBar ¯d¤£¦í
­nÅã¥Ü¶i«×®É¦A¥Î oProcessBar.showbar(¼Æ¶qN,'°T®§')

_________________
§Q¥Î>>·j´M<<ªº¥\¯à·|¤ñ°ÝªºÁÙ­n§Ö±o¨ìµª®×.
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó
goodnight



µù¥U®É¶¡: 2008-10-13
¤å³¹: 472
¨Ó¦Û: ¥x«n¥«

²Ä 10 ¼Ó

µoªíµoªí©ó: ¬P´Á¤­ ¤G¤ë 22, 2019 10:35 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

garfield ¼g¨ì:
§A­n¥ý public oProcessBar ¦Ado §Aªºµ{¦¡¤~¦æ,
¤£µM oProcessBar ¯d¤£¦í
­nÅã¥Ü¶i«×®É¦A¥Î oProcessBar.showbar(¼Æ¶qN,'°T®§')


ÁÂÁ»¡©ú, ¸Õ¥X¨Ó¤F

_________________
§Æ±æ¦³§ó¦h¤H¨Ó°Ñ»P
VFP wiki - »Ý­n¤j®a¤@°_§¹¦¨ªºVFP¹q¤l®Ñ»PFAQ
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó ¶®ªê°T®§³q MSN Messenger
±q¤§«eªº¤å³¹¶}©lÅã¥Ü:   
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï ©Ò¦³ªº®É¶¡§¡¬° ¥x¥_®É¶¡ (GMT + 8 ¤p®É)
²Ä1­¶(¦@1­¶)

 
«e©¹:  
±z µLªk ¦b³o­Óª©­±µoªí¤å³¹
±z µLªk ¦b³o­Óª©­±¦^ÂФ峹
±z µLªk ¦b³o­Óª©­±½s¿è¤å³¹
±z µLªk ¦b³o­Óª©­±§R°£¤å³¹
±z µLªk ¦b³o­Óª©­±¶i¦æ§ë²¼
±z µLªk ¦b³o­Óª©­±ªþ¥[ÀÉ®×
±z µLªk ¦b³o­Óª©­±¤U¸üÀÉ®×


Powered by phpBB © 2001, 2005 phpBB Group
¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@