Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

ÓÃVB±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET

ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ

googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ

Ö±½Óµ÷²éÓþͿÉÒÔÁË

Ãæ¶ÔÃÀÅ® ......

Çóvb´óϺ¿´Ò»Ï°¡£¡£¡£¡

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
  If recs > 0 Then 'ÒÑÓп¼Éú
  Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
  num = V ......

vb´®¿ÚͨÐÅÈçºÎ½ÓÊÕdoubleÐ͵ÄÊý¾Ý£¿

ÎÒÏëͨ¹ýµ¥Æ¬»ú¸øPC·¢ËÍdoubleÐ͵ÄÊý¾Ý£¬pc¶ËÓÃvb±àдµÄ£¬vbÈçºÎ½ÓÊÕdoubleÐ͵ÄÊý¾ÝÄØ£¿ÔÚµ¥Æ¬»ú¶ËÎÒÊÇͨ¹ýÁªºÏÌ彫doubleÐÍÊý¾Ý·Ö³É8¸ö×Ö½Ú·¢¹ýÈ¥µÄ¡£
ÿ¸ö×ֽڵķ¢£¬È»ºóÔÙÆ´ÆðÀ´

ÆäʵÓÃVB±à³Ì£¬ÄãÈí¼þ¶¼¿É¿Ø£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ