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

VB ¼òµ¥¼ÆËãÆ÷

Option Explicit
Dim potflag As Integer      '±êʶÊÇ·ñÓÃСÊýµã
Dim numcol As Integer       ' µã»÷ÔËËã·ûµÄ¸öÊý
Dim LastInput               ' ָʾÉÏÒ»´Î²Ù×÷µÄÄÚÈÝ
Dim colflag                 'numcolΪ1ʱ£¬±£´æÔËËã·û
Dim temp1, temp2            '·Ö±ð±£´æÔËËã·ûÁ½¶ËµÄÔËËãÊý
 
Private Sub CmdCel_Click()     'ÖØпªÊ¼¼ÆËã°´Å¥£¬¸ö¼ÆÁ¿ÊýºÍ±êʶ³õʼ»¯
    Res = Format(0, "0.")
    temp1 = 0
    temp2 = 0
    numcol = 0
    potflag = False
    LastInput = "cel"   '±êʶ´Ë²Ù×÷Ϊ"cel"
End Sub
Private Sub CmdPot_Click()  'ʹÓÃСÊýµã
    If LastInput <> "num" Then
        Res = Format(0, "0.")
    ElseIf String(1, Res) = "-" Then
        Res = Format(0, "-0.")
End If 
potflag = True
    LastInput = "num"   '±êʶ´Ë²Ù×÷Ϊ"num"
End Sub
 
Private Sub Cmdsign_Click()     'ʹÓÃÕý¸ººÅ
    If String(1, Res) <> "-" Then   'Èç¹ûµ±Ç°ÊÇÕýÊýÌí¼Ó¸ººÅ
        Res = "-" & Res
    Else: Res = Right(Res, Len(Res) - 1)  'Èç¹ûµ±Ç°ÊÇÖ¤ºÅ£¬È¡Ïû¸ººÅ
End If 
LastInput = "num"   '±êʶ´Ë²Ù×÷Ϊ"num"
End Sub
Private Sub ComCol_Click(Index As Integer)  'µã»÷²Ù×÷·û£¬¿É½øÐÐÁ¬ÐøÔËËã
    numcol = numcol + 1     'ͨ¹ýnumcol±êʶµã»÷ÔËËã·ûµÄ´ÎÊý
    If numcol = 1 Then  'µ±Ç°ÊýΪ²Ù×÷·û×ó²àÔËËãÊýʱ£¬¼Ç¼µ±Ç°²Ù×÷Êý
        temp1 = Res
  &


Ïà¹ØÎĵµ£º

ÓÀÔ¶µÄħÁé by ¹ùÎÀ VB³ÌÐòÉè¼ÆÔ´ÂëÈ«¼Ò¸£

 
 
'*************************************************************************
**˵ Ã÷£ºÓÀÔ¶µÄħÁé by icecept(¹ùÎÀ£©
'**´´ ½¨ ÈË£ºicecept(ħÁé)
'**ÈÕ ÆÚ£º2009-11-15 20:27:03
'**ÐÞ ¸Ä ÈË£ºicecept(ħÁé)
'**°æ ±¾£ºV1.0.0
'**E-mail   £ºicecept@163.com QQ£º543375508
'**Íø ......

ÈçºÎÓÅ»¯VB³ÌÐò

ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò°ïÖú 
1¡¢ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò
Visual Basic ×÷ΪһÖָ߼¶±à³ÌÓïÑÔ£¬ËüÒ²ÓÐ×Ų»¿É±ÜÃâµÄȱµã---¿ª·¢³öµÄÓ¦ÓóÌÐòÔËÐÐËÙ¶ÈÂý¡£Èç¹ûÎÒÃÇÄܹ»³ÌÐò×öһЩÓÅ»¯£¬ÄÇôÇé¿ö½«»á´ó´ó¸ÄÉÆ¡£ÒªÓÅ»¯³ÌÐòÔËÐеÄʵ¼ÊËٶȣ¬³£Óõķ½·¨ÓÐÈýÖÖ£º
1.¾¡Á¿±ÜÃâʹÓà Variant ±äÁ¿¡£ÓÉÓÚVB²»ÄÜÈ·¶¨ Variant ±äÁ¿µÄ¾ ......

VBÓëFTP±à³Ì

Option Explicit
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const scuseragent = "vb wininet"
Private Const INTERNET_FLAG_PASSIVE = &H8000000
'µ÷ÓÃÉèÖû·¾³
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long ......

VB µ¥ÊµÀýÔËÐÐ

VB6
ÔÚ³ÌÐòÔËÐÐʱÓÃÈçÏÂÓï¾ä£º
if   app.PrevInstance=true   then  
            end    
end   if
VB 2005:
1. ÔÚVB2005ÖÐ,´ò¿ª"ÊôÐÔ"Ò³,ÆôÓÃ"Ó¦ÓóÌÐò“¿ò¼Ü, Ñ¡ÖÐ"
µ¥ÊµÀýÓ¦ÓóÌÐò"Ç°Ã渴ѡ¿ò,¾ÍÐÐÁË¡£
......

VB6.0ÈçºÎÓà libmySQL.dll API·ÃÎÊMYSQLÊý¾Ý¿â

MYSQL Ó¦ÓÃÊ®·Ö¹ã·¶£¬ºÜ¶àÍøÕ¾¼¸ºõ¶¼ÔÚÓÃËû£¬ÒòΪËûµÄСÇɺÍÁé»îÐԵȷ½ÃæÈÃÎÒ¾ö¶¨Òª¶ÔËû½øÐÐÑо¿£¬µ½ÏÖÔÚÒѾ­³É¹¦µÄ²»Óþ­¹ýODBC£¬ADOµÈ·½Ê½¾Í¿ÉÒÔ¶ÁÈ¡ºÍ¸üÐÂÊý¾Ý¡£
 
ºÃÁ˲»¶àÂÞ࣬ÒÔÏÂÎÒÀ´½éÉÜ×ܸö³ÌÐòµÄϸ½Ú:
 
£¨Ò»£©APIÉùÃ÷
 
1.  '·ÖÅä»ò³õʼ»¯ÊʺÏmysql_real_connect()µÄÒ»¸öMYSQL¶ÔÏñ¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ