Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ²Ù×÷Excel£¬¸½Èí¼þͼ

Ò»¡¢ VB¶ÁдEXCEL±í£º
¡¡¡¡VB±¾ÉíÌá×Ô¶¯»¯¹¦ÄÜ¿ÉÒÔ¶ÁдEXCEL±í£¬Æä·½·¨ÈçÏ£º
¡¡¡¡1¡¢ÔÚ¹¤³ÌÖÐÒýÓÃMicrosoft ExcelÀàÐͿ⣺
¡¡¡¡´Ó"¹¤³Ì"²Ëµ¥ÖÐÑ¡Ôñ"ÒýÓÃ"À¸£»Ñ¡ÔñMicrosoft Excel 9.0 Object Library£¨EXCEL2000£©£¬È»ºóÑ¡Ôñ"È·¶¨"¡£±íʾÔÚ¹¤³ÌÖÐÒªÒýÓÃEXCELÀàÐͿ⡣
¡¡¡¡2¡¢ÔÚͨÓöÔÏó ......

ÖØÊ°VBÖ®Èý£¬¶þ½øÖÆÎļþƪ

ÖØÊ°VBÖ®Èý£¬¶þ½øÖÆÎļþƪ
PMP ¹Ø¾¢ËÉ
     ¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB¡£
¶ÁÈ¡¡¢Ð޸Ķþ½øÖÆÎļþÈÔÊǴ󲿷ֱà³ÌÓïÑԵĻù±¾¿ª·¢¼¼ÄÜ¡£¿ÉÒÔÌá¸ß´¦ÀíÎļþЧÂÊ£¬Ö÷ÒªÓ¦ÓÃÔÚͨÐÅ¡¢½»»»Êý¾ÝµÈ·½Ãæ¡£
'open   filena ......

´¿VBÕæÕýʵÏÖÎȶ¨µÄNT·þÎñ

'* ************************************************************** *
'* ³ÌÐòÃû³Æ£ºmodNtSrv
'* ³ÌÐò¹¦ÄÜ£ºÊµÏÖNT·þÎñ
'* ×÷Õߣºlyserver
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ************************************************************** *
Option Explicit
' ......

vb Á¬½ÓoracleÊý¾Ý¿â

         
    Dim cn As ADODB.Connection
    Dim rs     As ADODB.Recordset
    Set cn = New ADODB.Connection
    cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info= ......

vb »úƱ¶©¹ºÏµÍ³

ÌâÄ¿£ºÒ»¼ÒСÐͺ½¿Õ¹«Ë¾¸Õ¸Õ¹ºÂòÁËһ̨¼ÆËã»ú£¬ÒÔʹÓÃеĻúƱ×Ô¶¯Ô¤¶©ÏµÍ³£¬Õâ¼Ò¹«Ë¾ÒªÇóÎÒÃÇ¿ª·¢Õâ¸öÐÂϵͳ¡£ÎÒÃÇÐèÒª±àдһ¸öÓ¦ÓóÌÐò£¬¶ÔÕâ¼Òº½¿Õ¹«Ë¾Î¨Ò»µÄÒ»¼Ü·É»ú£¨ÈÝÁ¿Îª10¸ö×ù룩µÄÿ¸öº½°à·ÖÅä×ùλ¡£Õâ¸öÓ¦ÓóÌÐòÓ¦¸ÃÊäÈëÏÂÃæÕâЩѡÏÇëÊäÈë1Ñ¡ÔñÍ·µÈ²ÕºÍÇëÊäÈë2Ñ¡Ôñ¾­¼Ã²Õ¡£Èç¹ûÓû§ÊäÈë1£¬Ó¦ÓóÌÐòÓ¦¸Ã·ÖÅäÒ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ