Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

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

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

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

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

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

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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 ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

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

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

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