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

VB-ÒѾ­ÖªµÀ²»¹æÔòͼÏñµÄ×ø±ê£¬ÔõôÇóµÃ±ß½çµã

VB-ÒѾ­ÖªµÀ²»¹æÔòͼÏñµÄ×ø±ê£¬ÔõôÇóµÃ±ß½çµã

ÎÒÏ£Íû¶Ô±ß½çµãÑÕÉ«½øÐд¦Àí£¬ÐèÒª»ñµÃ±ß½ç1ÏñËصÄËùÓе㡢±ß½ç2ÏñËصÄËùÓе㡢±ß½ç3ÏñËصÄËùÓе㡢......

ÇëÎÊÔõô»ñÈ¡£¿ÎÒ´óÖµÄ˼·ÊÇ£º»ñȡͼÏñÖØÐÄ×ø±ê£¬È»ºó¸ù¾ÝÆäËûµãµÄ×ø±ê½øÐÐÅжÏËûÃÇÍâΧµãÊÇ·ñΪ¿Õ£¬µ«ÊÇÎÒ·¢ÏÖÕâÖÖ·½·¨ºÃÏñ²»ÊǺܺ㬱ȽÏÂý£¬Ìرðµ±2ÏñËغÍ3ÏñËصȷdz£Âé·³£¬ÇëÎÊÓÐʲôÆäËû·½·¨£¬Ö±½Ó»ñÈ¡?

ÎÒ´óÖ´úÂë´ó¼Ò¿´¿´£º

VB code:

Form1.ScaleMode = 3
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3

Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height

tt = Timer
Do
DoEvents
Loop Until Abs(tt - Timer) > 0.1


myWidth = Picture1.Width
myHeight = Picture2.Height

Dim ys As Long
Dim Pix As Long

ys = Picture1.Point(2, 2)

Dim lin_ys As Long
Dim my_ys()
ReDim my_ys(myWidth + 1000, myHeight + 1000)

qishi_du = 0.2 '±ß½ç×ʼµÄ͸Ã÷¶È,0±íʾÍêȫ͸Ã÷£¬1±íʾ²»Í¸Ã÷
xiangsu_shu = 5 '±ß½ç¶àÉÙÏñËØ¿ÉÒÔÐèҪ͸Ã÷¶È

Dim n1, n2
Dim zhongX, zhongY, zongshu 'ÖØÐĵã×ø±ê
'Ò»ÐÐÐд¦Àí
For h = 1 To myHeight
'´Ó×ó±ßµ½Í¼Æ¬Î»ÖÃ
n1 = -1
For w = 1 To myWidth
Pix = Picture1.Point(w, h)
If Pix = -1 Then
ElseIf Pix <> ys Then
n1 = w


Ïà¹ØÎÊ´ð£º

ÇëºÃÐÄÈË°ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îÇ°£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vb´òÓ¡

ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢

VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)

    Printer.ScaleMode = vbMillimeters
    Print ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ