VBÖд°ÌåÄ£¿é¡¢±ê׼ģ¿é¡¢ÀàÄ£¿éµÄÇø±ð
VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖظ´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´úÂ빫Ó᣸öÀÁ¢Ä£¿é¼´ÊDZê׼ģ¿é¡£´ËÍ⻹¿ÉÒÔ½¨Á¢°üº¬¹²Ïí´úÂëÓëÊý¾ÝµÄÀàÄ£¿é¡£
¡¡¡¡Ã¿¸ö±ê׼ģ¿é¡¢ÀàÄ£¿éºÍ´°ÌåÄ£¿é¿É°üº¬£º
¡¡¡¡ÉùÃ÷¡£ ¿É½«³£Êý¡¢ÀàÐÍ¡¢±äÁ¿ºÍ¶¯Ì¬Á´½Ó¿â£¨DLL£©¹ý³ÌµÄÉùÃ÷·ÅÔÚ´°Ìå¡¢Àà»ò±ê׼ģ¿éµÄÉùÃ÷²¿·Ö¡£Ã¿¸öÄ£¿éÖ»ÓÐÒ»¸öÉùÃ÷²¿·Ö
¡¡¡¡¹ý³Ì¡£Ã¿¸öÄ£¿é¿ÉÓжà¸ö¹ý³Ì£¬¹ý³ÌÊÇ»®·ÖVB´úÂëµÄ×îСµ¥Ôª£¬Ã¿¸ö¹ý³ÌÊÇÒ»¸ö¿ÉÖ´ÐеĴúÂëƬ¶Î¡£VBÖÐÖ÷ÒªÓÐ×Ó¹ý³Ì¡¢º¯Êý¹ý³Ì»òÕßÊôÐÔ¹ý³ÌµÈ
¡¡¡¡¸÷ÖÖÄ£¿éÀàÐÍ
¡¡¡¡1.´°ÌåÄ£¿é
¡¡¡¡ÓÉÓÚVBÊÇÃæÏò¶ÔÏóµÄÓ¦ÓóÌÐò¿ª·¢¹¤¾ß£¬ËùÒÔÓ¦ÓóÌÐòµÄ´úÂë½á¹¹¾ÍÊǸóÌÐòÔÚÆÁÄ»ÉϱíʾµÄ¶ÔӦģÐÍ¡£¸ù¾Ý¶¨Ò壬¶ÔÏó°üº¬Êý¾ÝºÍ´úÂë¡£Ó¦ÓóÌÐòÖеÄÿ¸ö´°Ì嶼ÓÐÒ»¸öÏà¶ÔÓ¦µÄ´°ÌåÄ£¿é£¨ÎļþÀ©Õ¹ÃûΪ.frm£©
¡¡¡¡´°ÌåÄ£¿éÊÇVBÓ¦ÓóÌÐòµÄ»ù´¡¡£´°ÌåÄ£¿é¿ÉÒÔ°üº¬´¦ÀíʼþµÄ¹ý³Ì¡¢Í¨Óùý³ÌÒÔ¼°±äÁ¿¡¢³£Êý¡¢×Ô¶¨ÒåÀàÐͺÍÍⲿ¹ý³ÌµÄ´°Ì弶ÉùÃ÷¡£Ð´Èë´°ÌåÄ£¿éµÄ´úÂëÊǸô°ÌåËùÊôµÄ¾ßÌåÓ¦ÓóÌÐòרÓõģ»Ò²¿ÉÒÔÒýÓøóÌÐòÄÚµÄÆäËü´°ÌåºÍ¶ÔÏó
¡¡¡¡Ã¿¸ö´°ÌåÄ£¿é¶¼°üº¬Ê¼þ¹ý³Ì£¬ÔÚʼþ¹ý³ÌÖÐÓÐΪÏìÓ¦¸Ãʼþ¶øÖ´ÐеijÌÐò¶Î¡£´°Ìå¿É°üº¬¿Ø¼þ¡£ÔÚ´°ÌåÄ£¿éÖУ¬¶Ô´°ÌåÉϵÄÿ¸ö¿Ø¼þ¶¼ÓÐÒ»¸ö¶ÔÓ¦µÄʼþ¹ý³Ì¼¯¡£³ýÁËʼþ¹ý³Ì£¬´°ÌåÄ£¿é»¹¿É°üº¬Í¨Óùý³Ì£¬Ëü¶ÔÀ´×Ըô°ÌåÖÐÈκÎʼþ¹ý³ÌµÄµ÷Óö¼×÷³öÏìÓ¦¡£
¡¡¡¡2.±ê׼ģ¿é
¡¡¡¡±ê׼ģ¿éÊdzÌÐòÖеÄÒ»¸ö¶ÀÁ¢ÈÝÆ÷£¬°üº¬È«¾Ö±äÁ¿¡¢Function(º¯Êý)¹ý³ÌºÍSub¹ý³Ì£¨×Ó¹ý³Ì£©¡£
¡¡¡¡¿É½«ÄÇЩÓëÌض¨´°Ìå»ò¿Ø¼þÎ޹صĴúÂë·ÅÈë±ê׼ģ¿éÖС£±ê׼ģ¿éÖаüº¬Ó¦ÓóÌÐòÄÚµÄÔÊÐíÆäËüÄ£¿é·ÃÎʵĹý³ÌºÍÉùÃ÷¡£ËüÃÇ¿ÉÒÔ°üº¬±äÁ¿¡¢³£Êý¡¢ÀàÐÍ¡¢Íⲿ¹ý³ÌºÍÈ«¾ÖÉùÃ÷»òÄ£¿é¼¶ÉùÃ÷¡£Ð´Èë±ê׼ģ¿éµÄ´úÂë²»±Ø¹Ì¶¨ÔÚÌض¨µÄÓ¦ÓóÌÐòÉÏ£»
¡¡¡¡£¨1£©Ê¹Óñê׼ģ¿é
¡¡¡¡ÔÚ±àд³ÌÐòʱ£¬ºÜ¿ÉÄÜ»áÓöµ½Ò»Ð©Ê¹ÓÃÏàͬ±äÁ¿ºÍÀý³ÌµÄ´°ÌåºÍʼþ¹ý³Ì¡£ÔÚȱʡ״̬Ï£¬±äÁ¿¶ÔÓÚʼþ¹ý³ÌÀ´ËµÊǾֲ¿µÄ£¬¾ÍÊÇ˵½öÄÜÔÚ´´½¨ÕâЩ±äÁ¿µÄʼþ¹ý³ÌÖжÁÈ¡»òÕßÐ޸ıäÁ¿¡£ÓëÖ®ÏàËÆ£¬Ê¼þ¹ý³Ì¶ÔÓÚ´´½¨ËüÃǵĴ°ÌåÀ´ËµÒ²ÊǾֲ¿¡£ÎªÁËÔÚ¹¤³ÌÖеÄËùÓд°ÌåºÍʼþÖй²Ïí±äÁ¿ºÍ¹ý³Ì£¬ÐèÒªÔڸù¤³ÌµÄÒ»¸ö»ò¶à¸ö±ê׼ģ¿éÖжÔËüÃǽ
Ïà¹ØÎĵµ£º
È¥ÄêÔøд¹ýһƪ²©ÎÄ£¬Ãû³Æ½Ð¡¶ÓÃVBÎÞ´°¿Ú͸Ã÷Usercontrol±àд͸Ã÷¸¡¶¯°´Å¥¡·£¬¸ÃÎÄÓÐÒ»¸ö¹ÛµãÊÇ´íÎóµÄ£¬¼´Í¸Ã÷ÎÞ´°¿ÚUsercontrol²»Ö§³ÖÉè¼ÆʱµãÑ¡¡£Æäʵ£¬Í¨¹ýÔÚUserControl_HitTest¹ý³ÌÀï¼ÓÈëHitResult = vbHitResultHitÓï¾ä£¬¾Í¿ÉÒÔʵÏÖÉè¼ÆʱµÄµãÑ¡ÁË£¬Îª´Ë£¬Ð޸ĴúÂëÈçÏ£º
'* ******************* ......
×î½üÔÚʹÓúÍÑо¿OpenGL»æͼ£¬Óöµ½²»ÉÙÎÊÌâ¡£ÍøÉϲéÔÄ×ÊÁϵÄʱºò£¬·¢Ïִ󲿷Ö×ÊÁ϶¼ÊÇCÓïÑÔ£¬ºÍC++дµÄ£¬VBÕâ·½ÃæµÄ×ÊÁÏÌ«ÉÙÁË£¬VB6.0µÄ¾Í¸üÉÙ£¬ÏÖÔÚ¶¼Á÷ÐÐdotnet¡£×Ô¼ºÂòÁ˱¾OpenGLÊéÊÇÒ²ÊÇCÓïÑÔ°æµÄ¡£Õâ¸ö²©¿ÍÒ²¿ªÁË2Äê¶àÁË£¬¶¼Ã»Ð´µã¶«¶«ÉÏÀ´¡£³ÃÍíÉÏ˯²»×Å£¬ÉÏÀ´Ð´µã¡£
Ò»¡¢Ê²Ã´ÊÇOpenGL£¿
OpenGLÊÇOpe ......
֮ǰÅöµ½Ò»¸öÎÊÌ⣬VBÖÐÏòÒ»¸öC++дµÄDLLÖÐ×¢²áÒ»¸öCallback£¬C++ÔÚµ÷ÓÃÕâ¸öCallbackʱÓÐЩÎÊÌ⣬¾ßÌåÎÊÌâÃèÊöºÍÏÂÃæÕâ¸öÌû×ÓÖеÄÇé¿öÊÇÒ»ÑùµÄ: http://topic.csdn.net/t/20051104/09/4370840.html
¾¹ý³¢ÊÔÒÔºó·¢ÏÖ£¬ÔÚVBÖÐдµÄ»Øµ÷º¯Êý±ØÐëÊÇÓÃFunction¹Ø¼ü×Ö£¬²¢ÇÒ£¬±ØÐëÒªÉèÖ÷µ»ØÖµ£¬ÈçÏ£º
Public Function Callbac ......
Private Sub Command12_Click()
Dim i As Integer
On Error GoTo ABC
ShowPrinterSetup Me
For i = 1 To Adodc1.Recordset.RecordCount
If Picture2.Picture <> LoadPicture("") Then
Printer.PaintPicture Picture2.Picture, 200, Picture1.Top + 1000
Else
......