Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÈçºÎµ÷ÓÃIllustrator£¨´ËÇ°IllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

vb¿ØÖÆGPRS MODEM²¦ºÅ

ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ

ÎÒÀ´¶¥

¶¥Ìù

LZºÃÀ÷º¦

²»¶¥²»ÐÐ

ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......

ÊìϤVBµÄ½øÀ´£¬ÓÐÏîÄ¿


ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?

ÐǪ̈ÁªÏµ·½Ê½ÄØ

ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨

¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ

±±¾©µÄÐв»£¿

ÎÒÔÚËÕÖÝ£¬ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ