vb×öµÄ´óСд×Öĸת»»Æ÷
'´óСд×Öĸת»»Æ÷vb
'½çÃæ°üÀ¨ command¡¢command1¡¢command2¡¢command3 ºÍÒ»¸ö text Îı¾¿ò
'command Ϊ“»¥×ª”°´Å¥£¬command1 Ϊ“ת´ó”°´Å¥£¬command2 Ϊ“תС”°´Å¥£¬command3 Ϊ“Çå³ý”°´Å¥
Private Sub Command_Click()
Dim i As Integer, n As Integer
Dim x As String, y As Integer, z
i = Len(Text.Text)
x = Text.Text
Text.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = UCase(z)
ElseIf y > 64 And y < 91 Then
z = LCase(z)
End If
Text.Text = Text.Text & z
Next
End Sub
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim x As String, y As Integer, z
i = Len(Text.Text)
x = Text.Text
Text.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = UCase(z)
ElseIf y > 64 And y < 91 Then
z = z
End If
Text.Text = Text.Text & z
Next
End Sub
Private Sub Command2_Click()
Dim i As Integer, n As Integer
Dim x As String, y As Integer, z
i = Len(Text.Text)
x = Text.Text
Text.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = z
ElseIf y > 64 And y < 91 Then
z = LCase(z)
End If
Text.Text = Text.Text & z
Next
End Sub
Private Sub Command3_Click()
Text.Text = ""
End Sub
Ïà¹ØÎĵµ£º
vbÖÆ×÷¿ÉÊä³öº¯ÊýµÄͨÓÃDLL---VB_DLL_LinkÓ÷¨
ÂÛ̳ԽÀ´Ô½¶àÈ˹Ø×¢dll£¬ÌØ·ÖÏíÒ»ÏÂvbÖÆ×÷¿ÉÊä³öº¯ÊýµÄͨÓÃDLL---VB_DLL_LinkÓ÷¨
´ó¼ÒÖªµÀ£¬VB6Ö»ÄÜÖÆ×÷ActiveX DLLÎļþ£¬ÖÆ×÷ÄÜÊä³öº¯ÊýµÄͨÓÃDLLÎļþͨ³£ÒªÓõ½VCµÈ¹¤¾ß¡£Êµ¼ÊÉÏ£¬VBÔÚ±àÒëµÄʱºò¼ÓÒÔ¿ØÖÆ£¬¾¹ýÊʵ±´¦ÀíÒ²ÊÇ¿ÉÒÔÖÆ×÷ͨÓÃDLLµÄ¡£Ê¹ÓÃVB_DLL_ ......
Ãû³Æ ÀàÐÍ ËµÃ÷
abort º¯Êý ÒýÆð·ÅÆúµÄÒâÍâ´¦Àí
abs º¯Êý ¾ø¶ÔÖµº¯Êý
addexitproc º¯Êý ½«Ò»¹ý³ÌÌí¼Óµ½ÔËÐÐʱ¿âµÄ½áÊø¹ý³Ì±íÖÐ
addr º¯Êý ·µ»ØÖ¸¶¨¶ÔÏóµÄµØÖ·
adjustlinebreaks º¯Êý ½«¸ø¶¨×Ö·û´®µÄÐзָô·ûµ÷ÕûΪcr/lfÐòÁÐ
align ÊôÐÔ Ê¹¿Ø¼þλÓÚ´°¿Úij²¿·Ö
alignment ÊôÐÔ ¿Ø¼þ±êÇ©µÄÎÄ×ÖλÖÃ
allocmem º ......
Õª×ÔVB°É¸ßÊÖ¾¨ÎÞµÐÐÖµÄÒ»¶Î¹ÜÊ×ʾÀý´úÂ룺
'******* ¶ÁÈ¡DOS³ÌÐòipconfig.exeµÄ·µ»Ø½á¹û£º ********
'×÷Õߣº ¾¨Î޵Р2006-10-19 21:57
'**************************************************
'´°Ìå´úÂ룺Form1
'**************************************************
Option Explicit
Private Const NOR ......
ÖØÊ°VBÖ®ËÄ£¬ÈÕÖ¾¼Óǿƪ
¹Ø¾¢ËÉ PMP
Ò»¡¢¹ØÓÚÈÕÖ¾¼Ç¼¹¦ÄÜ
Ö÷Òª¹¦ÄܵãÓÐ
1 ÔÚ³ÌÐòĿ¼ÏÂÉú³ÉlogĿ¼£¬ÓÃÓÚ±£´æÈÕÖ¾Îļþ¡£
2 ×Ô¶¯ÔÚlogĿ¼ÖУ¬Éú³ÉÈÕÖ¾Îļþ£¬ÎļþÃüÃûÓÃÄêÔÂÈÕ¶¨Ò壬Èç20100119_log.log¡£
3 ÔÚÈÕÖ¾ÎļþÖУ¬Ã¿ÐмǼһ¸öʱ¼äµãµÄÔËÐÐÄÚÈÝ¡£Ê±¼äµãµÄ¾«¶ÈÓ¦¸Ã´ïµ½ºÁÃë¡£
4 ÔÚÈÕÖ¾ÎļþÖУ¬Ã ......
ÔÚ×îеÄWindows Workflow Fonudation(WF4, ÏÂÎÄÖн«¼ò³ÆWF4)ÖУ¬WFÖÐÒýÈëÁËVB expression£¬Óû§¿ÉÒÔͨ¹ývb±í´ïʽΪ±äÁ¿¸³Öµ¡£ÓÐÐËȤµÄÅóÓÑ¿ÉÒÔ°²×°VS 2010£¬È»ºóʹÓÃÒ»ÏÂÕâ¸ö¹¦ÄÜ¡£¹ØÓÚÕâ¸ö¹¦ÄܵIJο¼£¬Çë¿´£ºhttp://msdn.microsoft.com/en-us/library/ee342461.aspx ʲô£¿ ²»ÖªµÀɶÊÇWF£¬Å¶£¬ÐÒ¿÷ÄãÓöµ½ÎÒ£¬ ......