VBʵÏÖ¼òµ¥µÄͼÐÎÇøÓòÑ¡Ôñ
³ÌÐòЧ¹û£º
µ±µã»÷×ó±ßµÄ²¿¼þͼʱ£¬»áµ¯³ö¶Ô»°¿òÌáʾÄãµã»÷ÁËÄÄÒ»¸öÇøÓò¡£
³ÌÐò˼·£º
ÓÃÒ»¸öÍ¼Æ¬ÇøÓòÂëͼ×÷Ϊµã»÷ÇøÓòµÄ²ÎÕÕ£¬¸ù¾ÝXYÈ¡µÃµÄÑÕɫʶ±ð³öÊôÓÚÄÄÒ»¸öÇøÓò
³ÌÐò½çÃæÈçÏ£º
Ïà¹Ø´úÂëÈçÏ£º
Visual Basic Code
Dim ColorArray ( ) As Long
Dim ColorCount As Long
Private Sub Form_Load ( )
'³õʼ»¯ÑÕÉ«ÊýÁ¿
ColorCount = Picture3.Width / 10
ReDim ColorArray ( 1 To ColorCount )
For X = 1 To ColorCount
ColorArray ( X ) = Picture3.Point ( ( X * 10 ) - 5, 5 )
Next X
End Sub
Private Sub Picture1_MouseDown ( Button As Integer, Shift As Integer, X As Single, Y As Single )
If Button = 1 Then
Dim NowColor As Long
NowColor = Picture2.Point ( X, Y )
If NowColor <> RGB ( 255, 255, 255 ) Then
Dim i As Long
For i = 1 To ColorCount
If NowColor = ColorArray ( i ) Then
ButtonClick i
Exit For
End If
Next i
End If
End If
End Sub
Private Sub ButtonClick ( Index As Long ) &n
Ïà¹ØÎĵµ£º
ÒÑÖªÓÐÒ»¸öXMLÎļþ£¨bookstore.xml£©ÈçÏ£º
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
< ......
ÔÆÔÂVB´úÂë¸ñʽ»¯²å¼þ 1.0
CloudMoonFormatCode.dll ÊÇÒ»¸öVB6.0µÄ²å¼þ£¬ÓÃÓÚVB¿ª·¢ÈËÔ±¸ñʽ»¯´úÂë¡£´Ë²å¼þÍêÈ«Ãâ·Ñ¡£
Ö÷Òª¹¦ÄÜ£º
ÔÚ VB6 IDE Öиñʽ»¯µ±Ç°´ò¿ª´°¿ÚµÄ´úÂ룬ʹÄãµÄ´úÂë¸ü¼ÓÕû½à¡¢ÃÀ¹Û¡£
Ìṩ¹Ø±ÕËùÓÐÉè¼Æ´°¿ÚµÄ¹¦ÄÜ
Ìṩ¹Ø±ÕËùÓдúÂë´°¿ÚµÄ¹¦ÄÜ
......
Sub CheckTextCodingType(Textfile)
Set fl = aqFile.OpenBinaryFile(Textfile, aqFile.faRead)
Binary1 = fl.ReadByte()
Binary2 = fl.ReadByte()
fl.Close
select case CStr(Binary1)& CStr(Binary2)
case 255254: '*Unicode (UTF-16) ǰÁ½¸ö×Ö½ÚΪFFFE
Log.Message("fi ......
1. ¸÷ÖÖ½øÖÆ×ª»»º¯Êý Ò»°ãµÄÊý¾Ý½øÖưüÀ¨Ê®½øÖÆ,¶þ½øÖÆ,Ê®Áù½øÖÆ.Ê®½øÖƾÍÊÇÎÒÃÇÈÕ³£Éú»îÓõ½µÄÊý¾Ý½øÖÆ,Òò´ËÒ²ÊÇÎÒÃÇ×îÊìϤºÍÇå³þµÄ;¶þ½øÖÆÊǼÆËã»úµÄ»ù´¡½øÖÆ,Ö÷ÒªÊÇÒòΪ±ãÓÚÓÃÎïÀíÆ÷¼þʵÏÖ¶þ½øÖÆ;°Ë½øÖƺÍÊ®Áù½øÖÆÒòΪºÍ¶þ½øÖƵÄÌìÈ»µÄÇ×ÃܹØÏµ,²¢ÇÒ±íʾ±È¶þ½øÖƸü·½±ã,
¡¡¡¡1.
¸÷ÖÖ½øÖÆ×ª»»º¯Êý
¡¡¡ ......
Try
Dim Path As String = Server.MapPath("~/Download/") 'Îļþ·¾¶
Path = Path & "file.txt" 'ÎļþµÄÃû³Æ
......