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µÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......
ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?
ÐǪ̈ÁªÏµ·½Ê½ÄØ
ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨
¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ
±±¾©µÄÐв»£¿
ÎÒÔÚËÕÖÝ£¬ ......