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
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îÇ°£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
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
......