Private Sub CreateValidImage(ByVal checkCode As String)
Dim iWidth As Integer = checkCode.Length * 15
Dim image As New Bitmap(iWidth, 25) 'ͼƬ´óС
Dim g As Graphics = Graphics.fromImage(image)
g.Clear(Color.White)
Dim c As C ......
ÎÒÔÚ´°ÌåÉÏÒþ²ØÁËÒ»¸öpicturebox,ʼþÇý¶¯ºó£¬pictureboxΪ¿É¼û£¬ºóÔÙÔÚpictureboxÀﶨÒå×ø±êϵ£¬½Ó×ÅÓÃline»Í¼ÎªÊ²Ã´»²»³öÀ´°¡£¿
лл°ïÖú
picture1.line
.auotredraw=true
Private Sub Combo1_click()
Select Case Combo1.Text
Case "µç»úµçѹ"
Picture2.Visible = True
Picture2.Scale (0, Pict ......
Conn.BeginTrans
ÔÚÕâ¸öÖ®¼ä Ò»¸öRs ¿ÉÒÔ´ò¿ª¹Ø±Õ¶à´Îô£¿
Conn.CommitTrans
¶¥Ò»¸öÏÈ£¬Ñ§Ï°Ë³±ã
¿ÉÒԵģ¬ÊÂÎñÊÇÕë¶ÔÁ¬½Ó±¾ÉíµÄ£º£©
µ±È»¿ÉÒÔ¡£Öмä¿ÉÒÔÈÎÒâ²Ù×÷±¾Á¬½ÓµÄÊý¾Ý¿â¡£ÉõÖÁ¿ÉÒÔ¿ç¿â²Ù×÷¡£
......
VBÈçºÎ¶ÔEXCEL½øÐÐһϵÁеIJÙ×÷ÄØ£¬±ÈÈ磺½«VBÀïµÄÊý×éµÄÊý¾ÝÊä³öµ½EXCLEÀÈçºÎ½«ÕâЩÊý¾Ý½øÐÐÅÅÐò£¬É¸Ñ¡£¬±È½ÏÊý×é¼äÖØ¸´Êý»ò²»Öظ´ÊýµÈ²Ù×÷£¬¿É·ñ·¢Ð©ÊµÔÚµãµÄÀý×ÓÄØ£¬²»Ê¤¸Ð¼¤
lzµÄÊÇÒª¸ö½Ì³ÌÁË ½¨ÒéÄãÏȰÑexcelµÄºê¼Ç¼ÏÂÀ´¿´¿´
ÍÆ¼öÍÆ¼öexcelÂ¼ÖÆºê¡£
¿´¿´excelµÄ×Ô¶¯»¯
²é²é¿´£¬msdnÉÏÓкܶàÀý×Ó
Êý×éÊÇ ......
×î½üÓÃVBдÁËÒ»¸ö²Ù×÷ÍøÒ³µÄ³ÌÐò£¬
ÆäÖÐÓÐÒ»¶ÎÑ»·£¬´úÂëÈçÏÂ
VB code:
inet1.Execute("d_url")
Do until inet1.stillexecuting=False ËÀÑ»·
doevents
Loop
ÔÚÎÒ¼ÒµçÄԺ͵¥Î»µçÄÔÉÏÒ»ÇÐÕý³££¬µ«ÔÚÎÒͬʵçÄÔÉϾÍʼÖÕÌø²»³öÕâ¸öÑ»·£¬
inet1.stillexecutingÒ»Ö±ÊÇTrue
Ìý˵ÊÇij¸ö dll¿Ø¼þÓÐÎÊÌâ,ÎÒ³ ......
¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC....
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß*********************************
ÎÊÌâÀ´ÁË...
ÎÒÏ뽫1.textµÄÄÚÈݲåÈëµ½ 2.text globalsÓëendglobalsÕâ¼ä,²¢±£´æ ......