VBÖÐÀàÄ£¿é×Ô¶¨Òå¹ý³ÌÖвÎÊý´«µÝ
¹¤³ÌÖÐÓÐÒ»¸öclsÎļþºÍÒ»¸öfrmÎļþ
clsÃû³ÆÎªStudent ´°ÌåÃû³ÆÎªfrmMain
clsÎļþÖеĴúÂëÈçÏ£º
'Student Êý¾Ý³ÉÔ±µÄÉùÃ÷
Private strName As String
Private intAge As Integer
'³õʼ»¯¹ý³Ì£¬±ØÐëµÄ
Private Sub Class_Initialize()
strName = "ÇëÊäÈëÄãµÄÐÕÃû"
intAge = 0
End Sub
'Student¹ý³ÌµÄÉùÃ÷(¶¨Òå)
'¶¨ÒåÒ»¸öÊäÈë¹ý³Ì£¬ÈÃÓû§ÊäÈëÊý¾Ý
Public Sub IuputData()
strName = InputBox("ÇëÊäÈëÄúµÄÐÕÃû", "Ìáʾ", strName)
intAge = InputBox("ÇëÊäÈëÄúµÄÄêÁä", "Ìáʾ", intAge)
End Sub
'¶¨Òå´òÓ¡ÐÅÏ¢µÄ¹ý³Ì£¬½«ÊäÈëÊý¾Ý´òÓ¡ÔÚ´°ÌåÉÏ
Public Sub PrintData(frmPrint As Form)
frmPrint.Print strName
frmPrint.Print intAge
End Sub
frmÎļþÖеĴúÂëΪ£º
Dim clsStu As New Student
Private Sub Form_Click()
Dim intReply As Integer 'ѯÎÊÓû§ÊÇ·ñ´òÓ¡ÊäÈëµÄÐÅÏ¢
'µ÷ÓÃÀàµÄ³ÉÔ±º¯Êý
clsStu.IuputData
intReply = MsgBox("ÊÇ·ñ´òÓ¡", vbYesNo, "VBÀàµÄʹÓÃ")
If intReply = vbYes Then
clsStu.PrintData(frmMain)
Else
Exit Sub
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
ÎÒÏëͨ¹ýµ¥Æ¬»ú¸øPC·¢ËÍdoubleÐ͵ÄÊý¾Ý£¬pc¶ËÓÃvb±àдµÄ£¬vbÈçºÎ½ÓÊÕdoubleÐ͵ÄÊý¾ÝÄØ£¿ÔÚµ¥Æ¬»ú¶ËÎÒÊÇͨ¹ýÁªºÏÌ彫doubleÐÍÊý¾Ý·Ö³É8¸ö×Ö½Ú·¢¹ýÈ¥µÄ¡£
ÿ¸ö×ֽڵķ¢£¬È»ºóÔÙÆ´ÆðÀ´
ÆäʵÓÃVB±à³Ì£¬ÄãÈí¼þ¶¼¿É¿Ø£ ......