Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB
ÈÈÃűêÇ©£º c c# c++ asp asp.net linux php jsp java vb Python Ruby mysql sql access Sqlite sqlserver delphi javascript Oracle ajax wap mssql html css flash flex dreamweaver xml
 ×îÐÂÎÄÕ : vb

ÓÃVBдһ¼òµ¥³ÌÐò¡£ - VB / »ù´¡Àà

ÊÔÓÃVB³ÌÐòÓïÑÔд³öÍêÕû³ÌÐò¶Î:ÇóS=1+3+5+7+¡­¡­+999µÄÖµ£¬ÔÚ´Ëлл»ØÌûµÄÅóÓÑÃÇ£¡
¹«Ê½£ºs=(1+999)*500/2 ±ðµÄ´úÂë»á×Ô¼ºÐ´ÁË°É

for i = 1 to 999 step 2
  sum = sum + i
next i
msgbox sum

dim i as integer
dim S as integer
S=0
for i=0 to 500
  S=S+(2*i-1)
next


rs+=sql.execut ......

Ç뽫ÒÔÏÂvb´úÂëÈçºÎдΪC#´úÂë лл - .NET¼¼Êõ / C#

Ç뽫ÒÔÏÂvb´úÂëÈçºÎдΪC#´úÂë лл
VB code:
Dim lpszName As New VBFixedStringAttribute(100)
Dim i As Integer
Dim DriverName As String = Space(80)
Dim DriverVersion As String = Space(80)
Dim bmp As BITMAPINFO
With bmp.bmiHeader
.biSize = Len(bmp.bmiHeader)
.biWidth = 320
.biHeight = 240
.b ......

ÈçºÎÕÒµ½VBÖеÄϵͳ×Ô´øµÄº¯ÊýµÄ´úÂë - VB / »ù´¡Àà

ÈçÌâ,±ÈÈç
VB code:

oper 'º¯Êý
put ' º¯Êý
get 'º¯Êý
close 'º¯Êý
'ÔÚÄÇÀï¿ÉÒÔÕÒµ½ÕâЩº¯ÊýµÄ´úÂë

msdnÀïÃæÓаïÖú¡£
VBµÄ¿âº¯ÊýÊDZÕÔ´µÄ¡£

ÄãÄÇÉÏÃæÓÐЩ²»ÊǺ¯Êý¡£
Òª¿´ÏµÍ³×Ô´øµÄÓÐÄÄЩº¯ÊýÎÒÕâÓиöºÃ·½·¨£¬ÔÚvb IDEÖа´F2£¬È»ºóÔÚ×ó±ßµÄÁбíÖÐÕÒµ½StringsµãÏ£¬ÓÒ±ßÄã¾Í·¢Ïֺܶàƽʱ¾­³£Ê¹Óõĺ¯ÊýÁË£ ......

ÇëÎÊvb³ÌÐòÈçºÎ¸úÍøÒ³³ÌÐòͨѶ - VB / ÍøÂç±à³Ì

ÎÒ¼û¹ýÓиöÍøվϵͳ£¬Ö±½Ó·ÃÎÊÍøÕ¾ºǫ́ÎÞ·¨·ÃÎÊ£¬ÒªÍ¨¹ýÈí¼þ¿Í»§¶Ë²ÅÄܽøÈëºǫ́£¬ÏëÖªµÀÔ­ÀíÊÇÔõôʵÏֵġ£
ÍøÒ³³ÌÐòÈçºÎÏòvb³ÌÐò·¢ËÍÊý¾Ý£¬ÓÖÊÇÈçºÎ½ÓÊÕµ½Êý¾Ý
vb³ÌÐòÓÖÊÇÈçºÎÏòÍøÒ³·¢ËÍÊý¾Ý£¬ÓÖÊÇÈçºÎ½ÓÊÕÄØ
VB ÓÐ ¿Ø¼þµÄ£¬Èçwinsock ,inet µÈ

Äܲ»ÄÜ˵¾ßÌåÒ»µãÄØ
{{ ......

vb ¹ØÓÚÒ»¸ö´°¿ÚµÄʼþ - VB / API

¾ÍÊÇ´°¿ÚÉÏÄǸöÀ¶É«µÄÌõ
ÎÒË«»÷Ëü,¸ÃÊÇʲôʼþ?
±ÈÈçÎÒÏëÈÃËü±»Ë«»÷ºóµ¯msgbox "a".
Public Const WM_NCLBUTTONDBLCLK = &HA3
×ÓÀ໯ºóÄܽص½

VBûÓжÔÓ¦µÄʼþ¡£ÐèÒª×ÓÀ໯´°¿Ú¹ý³Ì¡£
¾ßÌå×ö·¨ÊÇн¨Ò»¸ö´°ÌåÄ£¿é£¬
Óà setwindowlong ÉèÖùҹ³µÄ¹ý³Ì»Øµ÷¡£
È»ºó±àдһ¸ö windowproc(handle, msg, ......

VB»­Ô²ÐλòÍÖÔ²ÐεÄͼƬ¿ò - VB / »ù´¡Àà

Ò»°ëÎÒÃǵÄͼƬ¿ò¶¼ÊǾØÐεģ¬ÔØÈëµÄͼƬҲֻÄÜÊǾØÐΣ¬ÎÒÏÖÔÚÏë°Ñ¾ØÐαà³ÌÔ²ÐεĻòÍÖÔ²ÐΣ¬Ò²¾ÍÊÇ˵ÈÎÒâÐÎ×´µÄͼƬ¿ò£¬Ê¹ÔØÈëµÄͼƬÏÔʾΪԲÐΣ¬Ó¦¸ÃÔõô±à³ÌÐòÄØ£¬Ð»Ð»°ïæ½â´ð
shape¿Ø¼þ¡£Ñ¡ÔñÀàÐÍΪԲ¡£

VB code:
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn ......
×ܼǼÊý:1659; ×ÜÒ³Êý:277; ÿҳ6 Ìõ; Ê×Ò³ ÉÏÒ»Ò³ [22] [23] [24] [25] 26 [27] [28] [29] [30] [31]  ÏÂÒ»Ò³ βҳ
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ