˵ǰRegIt.batԿؼע,Ȼ㼴ProjTest.exeԲ鿴ؼʾˣ

ؼ:
˵VBPBDropDownDateWindowʵǿԵġںˣDropDownؼˡ򵥵úܣֻҪؼָĴˣۿComboBoxȫһ

÷˵

ʹñؼĴеĴ룺

Option Explicit

Private Sub Form_Load()
	XpDropDown.Value = 33333
	XpDropDown.Caption = "44444"
	Set XpDropDown.FrmDrop = FrmTest
End Sub

ָ壬FrmTestĴ룺

'ΪʾʱVBForm,رҪɿؼ.
'´
Option Explicit

Private Sub Command1_Click()
	'ؼµCaptionValue,ʹر
	FrmDemo.XpDropDown.CloseMe 111111, "222222"
End Sub

'ЩƴǷҪرյĴ.ʵʾ.
'CtrlGotFocusAskCtrlLostFocusAsk
'ǶоЩ¼ĿؼҪ,
'֪ͨXpDropDownؼ,Ƿر.
'˴оκForm.HideUnload MeΪڲ
'VBFORMֻÿؼر
'Ҳ޷,ؼǼ뷳һЩ.

Private Sub Command1_GotFocus()
	FrmDemo.XpDropDown.CtrlGotFocusAsk
End Sub

Private Sub Command1_LostFocus()
	FrmDemo.XpDropDown.CtrlLostFocusAsk
End Sub

Private Sub Command2_GotFocus()
	FrmDemo.XpDropDown.CtrlGotFocusAsk
End Sub

Private Sub Command2_LostFocus()
	FrmDemo.XpDropDown.CtrlLostFocusAsk
End Sub


ˣ   Bardo
ˣ 

ʼַsales@easthot.net
ַhttp//www.easthot.net

