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 icecept(¹ùÎÀ£©
'**´´ ½¨ ÈË£ºicecept(ħÁé)
'**ÈÕ ÆÚ£º2009-11-15 20:27:03
'**ÐÞ ¸Ä ÈË£ºicecept(ħÁé)
'**°æ ±¾£ºV1.0.0
'**E-mail £ºicecept@163.com QQ£º543375508
'**Íø ......
ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò°ïÖú
1¡¢ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò
Visual Basic ×÷ΪһÖָ߼¶±à³ÌÓïÑÔ£¬ËüÒ²ÓÐ×Ų»¿É±ÜÃâµÄȱµã---¿ª·¢³öµÄÓ¦ÓóÌÐòÔËÐÐËÙ¶ÈÂý¡£Èç¹ûÎÒÃÇÄܹ»³ÌÐò×öһЩÓÅ»¯£¬ÄÇôÇé¿ö½«»á´ó´ó¸ÄÉÆ¡£ÒªÓÅ»¯³ÌÐòÔËÐеÄʵ¼ÊËٶȣ¬³£Óõķ½·¨ÓÐÈýÖÖ£º
1.¾¡Á¿±ÜÃâʹÓà Variant ±äÁ¿¡£ÓÉÓÚVB²»ÄÜÈ·¶¨ Variant ±äÁ¿µÄ¾ ......
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 ......
VB6
ÔÚ³ÌÐòÔËÐÐʱÓÃÈçÏÂÓï¾ä£º
if app.PrevInstance=true then
end
end if
VB 2005:
1. ÔÚVB2005ÖÐ,´ò¿ª"ÊôÐÔ"Ò³,ÆôÓÃ"Ó¦ÓóÌÐò“¿ò¼Ü, Ñ¡ÖÐ"
µ¥ÊµÀýÓ¦ÓóÌÐò"Ç°Ã渴ѡ¿ò,¾ÍÐÐÁË¡£
......
MYSQL Ó¦ÓÃÊ®·Ö¹ã·¶£¬ºÜ¶àÍøÕ¾¼¸ºõ¶¼ÔÚÓÃËû£¬ÒòΪËûµÄСÇɺÍÁé»îÐԵȷ½ÃæÈÃÎÒ¾ö¶¨Òª¶ÔËû½øÐÐÑо¿£¬µ½ÏÖÔÚÒѾ³É¹¦µÄ²»Óþ¹ýODBC£¬ADOµÈ·½Ê½¾Í¿ÉÒÔ¶ÁÈ¡ºÍ¸üÐÂÊý¾Ý¡£
ºÃÁ˲»¶àÂÞ࣬ÒÔÏÂÎÒÀ´½éÉÜ×ܸö³ÌÐòµÄϸ½Ú:
£¨Ò»£©APIÉùÃ÷
1. '·ÖÅä»ò³õʼ»¯ÊʺÏmysql_real_connect()µÄÒ»¸öMYSQL¶ÔÏñ¡ ......