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
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
ÎÒÏëͨ¹ýµ¥Æ¬»ú¸øPC·¢ËÍdoubleÐ͵ÄÊý¾Ý£¬pc¶ËÓÃvb±àдµÄ£¬vbÈçºÎ½ÓÊÕdoubleÐ͵ÄÊý¾ÝÄØ£¿ÔÚµ¥Æ¬»ú¶ËÎÒÊÇͨ¹ýÁªºÏÌ彫doubleÐÍÊý¾Ý·Ö³É8¸ö×Ö½Ú·¢¹ýÈ¥µÄ¡£
ÿ¸ö×ֽڵķ¢£¬È»ºóÔÙÆ´ÆðÀ´
ÆäʵÓÃVB±à³Ì£¬ÄãÈí¼þ¶¼¿É¿Ø£ ......