·¢²¼Ê±¼ä : ÐÇÆÚÈÕ ÎÄÕÂK - 3¿ª·¢»ýÀÛ¸üÐÂÍê±Ï¿ªÊ¼ÔĶÁd3a77c3067ec102de3bd8905
2. ÒýÓÃÏà¹ØµÄÀàÎļþ
7. ÈçºÎÔÚ¹¤Òµµ¥¾ÝÖÐÌí¼Ó×Ô¶¨ÒåµÄ¹¤¾ßÀ¸°´Å¥¼°ÏàÓ¦Ïà¹Ø²Ù×÷?
ÔÚΪ¿Í»§½øÐжþ´Î¿ª·¢µÄ¹ý³ÌÖÐÓÐʱ»áÓöµ½ÐèÒªÔÚÔÚ¹¤Òµµ¥¾ÝÖÐÌí¼Ó×Ô¶¨ÒåµÄ¹¤¾ßÀ¸°´Å¥¼°ÏàÓ¦Ïà¹Ø²Ù×÷µÄÎÊÌ⣬ÒÔϽ«ÒÔÒ»¸öʵÀýÀ´½²½âÈçºÎ½øÐдﵽÕâ¸öÄ¿±ê¡£
ÀýÈ磬ÎÒÏ£ÍûÔÚÉú²úÈÎÎñµ¥µÄ¹¤¾ßÀ¸ÖÐÔö¼ÓÒ»¸öÃû³ÆΪ¡°²âÊÔ¡±µÄ°´Å¥£¬µã»÷´Ë°´Å¥ºóµ¯³öÏûÏ¢¿òÏÔʾ¡°Hello,World!¡±µÄÐÅÏ¢£¬ÏÂÃæÎÒÃÇÒ»²½Ò»²½À´ÊµÏÖ¡£
1.Ê×ÏÈÐèҪΪÉú²úÈÎÎñµ¥Ôö¼ÓÒ»¸öеĶþ´Î¿ª·¢²å¼þ£¬Òò´ËÐèÒªÔÚVBÖÐн¨Ò»¸öActiveX DLL¹¤³Ì£¬ÎÒÃÇÔÚÕâΪ´Ë¹¤³ÌÃüÃûΪ:MyTester£¬È»ºóÔڴ˹¤³ÌÖÐÔö¼ÓÒ»¸öÀ࣬ÎÒÃÇÃüÃûΪMyButton¡£
2.ΪÁËÈÃK/3ʶ±ð´Ë¹¤³Ì±àÒëµÄ×é¼þÊÇÉú²úÈÎÎñµ¥µÄ¶þ´Î¿ª·¢²å¼þ£¬±ØÐëÔÚÕÊÌ×ÖÐÖ´ÐÐÒÔÏÂSQLÓï¾ä£º
Insert t_ThirdPartyComponent(FTypeid,FTypeDetailID,FIndex,FComponentName) Values(0,85,1,'MyTester.MyButton')
3.ÔÚ¹¤³ÌÖÐÔö¼ÓÒÔϱØÐë»ò³£ÓõÄÒýÓãº
4.ÔÚÀàMyButtonÖÐÔö¼ÓÒ»¸ö˽ÓжÔÏó£º
Private WithEvents m_BillTransfer As k3BillTransfer.Bill
´Ë¶ÔÏóÊǵ¥¾ÝµÄÊÂÎñ´úÀí¶ÔÏ󣬺óÐøËùÓе¥¾Ýʼþ»òµ¥¾ÝÊý¾Ý¶¼½«´Ó´Ë¶ÔÏóÖлñµÃ¡£
5.ÔÚÀàMyButtonÖÐÔö¼ÓÒ»¸ö¹«¿ª·½·¨£º
Public Sub Show(ByVal o As Object) Set m_BillTransfer = o End Sub
´Ë·½·¨½«±»µ¥¾Ýµ÷Ó㬲¢¶Ôm_BillTransfer¶ÔÏó½øÐгõʼ»¯¡£
6.ÔÚm_BillTransfer¶ÔÏóµÄLoadBillEndʼþÖÐÔö¼ÓÒ»¸ö°´Å¥£º
Private Sub m_BillTransfer_LoadBillEnd(ByVal ShowType As Long) With m_BillTransfer.BillForm.tlbTool.Buttons .Add .Count + 1, \²âÊÔ\ End With End Sub
ÕâÑùµ±µ¥¾Ý¼ÓÔØÍê³Éʱ½«ÔÚ¹¤¾ßÀ¸µÄ×îºóλÖÃÔö¼ÓÒ»¸öÃû³ÆΪ¡°²âÊÔ¡±µÄ°´Å¥¡£
7.ÏÂÃæÎÒÃÇ»¹ÒªÄܹ»ÏàÓ¦´Ë°´Å¥µÄ¶¯×÷£¬ÔÚm_BillTransfer¶ÔÏóµÄRetEventsʼþÖнøÐд¦Àí£º
Private Sub m_BillTransfer_RetEvents(ByVal Para As KFO.IDictionary) If Para(\ If Para(\ MsgBox \ End If End If
End Sub
ÏÖÔÚÎÒÃÇÒѾÍê³ÉÁËËùÓеıàÂ룬±àÒëºó×¢²á¼´¿ÉÔÚÉú²úÈÎÎñµ¥Öп´µ½½á¹û¡£Èç¹ûÏ£Íû»ñµÃµ¥¾Ý½çÃæÉϸü¶àµÄÊý¾Ý¿ÉÒÔ·ÃÎÊm_BillTransfer¶ÔÏóÀ´»ñµÃ£¬¾ßÌå˵Ã÷¿ÉÒԲμûÉè¼Æ²¿·¢·ÅµÄ¶þ´Î¿ª·¢ËµÃ÷Ê飬Èç¹ûÄãÒѾ¸ÐÐËȤÁ˾͸Ͽ춯ÊÖÊÔÒ»ÊÔ°É£º)
ÔËÐнá¹û£º
8. ÈçºÎÔÚ¹¤Òµµ¥¾Ý²å¼þÖпØÖƹ¤¾ßÌõ¡¢µ¥¾ÝÍ·¡¢µ¥¾ÝÌåµÄEnable¡¢Visible¡¢LockµÈÊôÐÔ?
ÓÐÖ麣·Ö¹«Ë¾µÄͬÊÂѯÎÊÈçºÎÔÚ¹¤Òµµ¥¾Ý²å¼þÖпØÖƹ¤¾ßÌõ¡¢µ¥¾ÝÍ·¡¢µ¥¾ÝÌåµÄenable¡¢
visible¡¢lockµÈÊôÐÔ?¾ßÌåʵÏÖÓÐÈçÏ·½Ê½£º 'µ¥¾ÝÌåËøס
With m_BillTransfer.Grid .Col = AAA .Row = 2 .Lock = False End With
'µ¥¾ÝÍ·ËøסºÍ½ûÓÃ
With m_BillTransfer.Head(BBB) .Enabled = False .Locked = True End With
'¹¤¾ßÌõ°´Å¥Òþ²Ø»ò½ûÓÃ
With m_BillTransfer.BillForm.tlbTool .Buttons(\ .Buttons(\ End With
'²Ëµ¥°´Å¥Òþ²Ø»ò½ûÓÃ
With m_BillTransfer.BillForm .mnuEEE.Visible = False .mnuFFF.Enabled = False End With
ÆäÖÐAAA¡¢BBBÊǵ¥¾ÝÄ£°æÖоßÌå×ֶεÄFCtlOrder×ֶεÄÖµ£»CCC£¬DDDÊǹ¤¾ßÀ¸°´Å¥µÄKey£¬¿ÉÒÔ¼àÊÓm_BillTransfer.BillForm.tlbTool.Buttons²¢ÕÒµ½ÐèÒªµÄ°´Å¥Key£»mnuEEE¡¢mnuFFFÊDz˵¥°´Å¥¶ÔÏóµÄName£¬¿ÉÒÔ¼àÊÓm_BillTransfer.BillForm²¢ÕÒµ½ÐèÒªµÄ²Ëµ¥°´Å¥Name¡£
9. ÈçºÎÔÚ¹¤Òµµ¥¾ÝÖе÷Óñ¨±í½øÐвéѯ?
ÉÏһƪÎÄÕÂÖнéÉÜÁËÔÚ¹¤Òµµ¥¾ÝÖÐÌí¼Ó×Ô¶¨ÒåµÄ¹¤¾ßÀ¸°´Å¥µÄ·½·¨(²Î¼û¡¶ÈçºÎÔÚ¹¤Òµµ¥¾ÝÖÐÌí¼Ó×Ô¶¨ÒåµÄ¹¤¾ßÀ¸°´Å¥¼°ÏàÓ¦Ïà¹Ø²Ù×÷?¡·)£¬Õâ´ÎÎÒÃÇÔÚÕâ¸ö»ù´¡ÉÏÀ´Ñ§Ï°ÈçºÎÔÚ¹¤Òµµ¥¾ÝÖе÷Óñ¨±í½øÐвéѯ¡£
ÎÒÃÇ×¼±¸ÔÚÉú²úÈÎÎñµ¥ÐÂÔö¼ÓµÄ¡°²âÊÔ¡±°´Å¥µã»÷ʱµ÷ÓÃÏÔʾ¡°Éú²úÈÎÎñµ¥Ö´ÐÐÃ÷ϸ±í¡±¡£ Ê×ÏÈÔÚMyButtonÀàÖÐÔö¼ÓÒ»¸ö˽Óз½·¨CallRpt£º