Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÓÃvbʵÏÖ¼ÆËã»ú¹¦ÄÜ


±¨¸æÊé
Ãû³Æ
ʵÑé10-1 ʵÏÖ¼ÆËãÆ÷µÄ¹¦ÄÜ
ÐÕÃû
 
Ö¸µ¼½Ìʦ
 
ѧºÅ
 
ÈÕÆÚ
 
ÈÎÎñÇåµ¥
ÔÚ±¾Á·Ï°ÖУ¬Ä㽫ʹ»æÖƵļÆËãÆ÷Íê³É¼òµ¥µÄËÄÔòÔËËã¡£
1)        Æô¶¯Visual Studio 2005¡£
2)        н¨Ò»¸öVB WindowsÓ¦ÓóÌÐò£¬ÔÚÃû³Æ´¦ÊäÈë“Calculator”,ÔÚλÖô¦Ñ¡Ôñ³ÌÐò´æ·ÅµØÖ·£¬µã»÷È·¶¨¡£
3)        ÍÏ×§ÏàÓ¦µÄTextBox¿Ø¼þºÍButton¿Ø¼þµ½´°ÌåÉè¼ÆÆ÷ÖУ¬»æÖƳöÒ»¸ö¼ÆËãÆ÷µÄ½çÃæ
4)        תµ½´úÂëÉè¼ÆÆ÷£¬ÔÚButtonµÄClickʼþÖÐÌí¼ÓÈçÏ´úÂ룬ÒÔʵÏÖ¼òµ¥µÄËÄÔòÔËË㹦ÄÜ
5)        ÔËÐгÌÐò£º[µ÷ÊÔ]—>[Æô¶¯µ÷ÊÔ]£¬½øÈë½çÃæ
6)        µã»÷°´Å¥À´²âÊÔÄãµÄ¼ÆËãÆ÷
7)        ¹Ø±Õ³ÌÐò
8)        ³ÌÐòµÄÔËÐнØÍ¼ÈçÏÂËùʾ£º
9£© ²Î¿¼´úÂ룺
Public Class Calculator
 
    Dim a, b As Double
    Dim strCalKind As String
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text += Button1.Text
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text += Button2.Text
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text += Button3.Text
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text += Button4.Text
    E


Ïà¹ØÎĵµ£º

VB È¡µÃÖ¸¶¨exeÎļþ°æ±¾ºÅ

¡¾º¯Êý¡¿  
  GetFileVersionInfo  
   
  ¡¾²Ù×÷ϵͳ¡¿  
  Win9X:Yes  
  WinNT:Yes  
   
  ¡¾ÉùÃ÷¡¿  
  GetFileVersionInfo   Lib   "version.dll"     Alias   "GetFileVersionInfoA" &n ......

vb class Property Get¡¢Property Let ʹÓÃ

vb class Property Get¡¢Property Let ʹÓÃ
<%
'ÔÚ Class ¿éÖУ¬³ÉԱͨ¹ýÏàÓ¦µÄÉùÃ÷Óï¾ä±»ÉùÃ÷Ϊ Private(˽ÓгÉÔ±£¬Ö»ÄÜÔÚÀàÄÚ²¿µ÷ÓÃ) »ò Public(¹«ÓгÉÔ±£¬¿ÉÒÔÔÚÀàÄÚÍⲿµ÷ÓÃ) ¡£
'±»ÉùÃ÷Ϊ Private µÄ½«Ö»ÔÚ Class ¿éÄÚÊǿɼûµÄ¡£±»ÉùÃ÷Ϊ Public ²»½öÔÚ Class ¿éµÄÄÚ²¿ÊǿɼûµÄ£¬¶Ô Class ¿éÖ®ÍâµÄ´úÂëÒ²Êǿɼûµ ......

ʹÓÃVC±àдVBʹÓÃDLL

ʹÓÃVC±àдVBʹÓÃDLL
Ò»¡¢ÔÚº¯Êý¶¨Òåǰ±ØÐë¼ÓÉÏextern "c"£¬_stdcall¹Ø¼ü×Ö¡£
 extern "C" int _stdcall Sum(int x,int y)
 {
  return x+y;
 }
 
¶þ¡¢DLLµÄ.defÎļþÖбØÐë¼ÓÉÏÈë¿Úº¯Êý
    EXPORTS
     sample @1
     ......

ÔÚVBµÄÀàÄ£¿éÖÐʹÓö¨Ê±Æ÷

    ³¤¾ÃÒÔÀ´£¬ÓÉÓÚ²»ÄÜÖ±½Ó»ñµÃVBÀà³ÉÔ±º¯ÊýÖ¸Õ룬ÒòΪÎÞ·¨ÔÚVBµÄÀàÄ£¿éÖÐÖ±½ÓʹÓö¨Ê±Æ÷¿Ø¼þ»ò¶¨Ê±Æ÷API£¬»ùÓÚ°³±àдµÄ»ñµÃÀà³ÉÔ±º¯ÊýÖ¸ÕëµÄº¯Êý£¬°³±àдÁËÕâ¸ö´ø¶¨Ê±Æ÷¹¦ÄܵÄÀ࣬ϣÍû¸øÅóÓÑÃÇһЩÆô·¢¡£
    Ò»¡¢Ð½¨Ò»¸öÀ࣬ÀàÃû³ÆÎªclsTimer£¬Àà´úÂëÈçÏ£º
Option Explicit
'* ** ......

ÈçºÎÓÃVBʵÏÖExcelÎļþµÄ×Ô¶¯ºÏ²¢

¼òµ¥¶øÊµÓõĺϲ¢ExcelÎļþµÄº¯Êý£¬Äܹ»½«¶à¸öXLSÎļþÖÐÖ¸¶¨ÊýÁ¿µÄ¹¤×÷±í×Ô¶¯ºÏ²¢µ½Ò»¸öXLSÎļþÀï¡£µ±È»£¬Èç¹ûÖ»ÊÇÊý¾ÝºÏ²¢£¬ÔòʹÓÃADO¾Í¿ÉÒÔʵÏÖ£¬µ«Èç¹ûÒª±£Áô±í¸ñ¸ñʽ£¬Ôò¿ÖÅÂÖ»ÄÜʹÓð³µÄ·½·¨ÁË¡£
    Ò»¡¢º¯Êý´úÂ룺
Option Explicit
'* ********************************************************* ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ