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

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 »úƱ¶©¹ºÏµÍ³

ÌâÄ¿£ºÒ»¼ÒСÐͺ½¿Õ¹«Ë¾¸Õ¸Õ¹ºÂòÁËһ̨¼ÆËã»ú£¬ÒÔʹÓÃеĻúƱ×Ô¶¯Ô¤¶©ÏµÍ³£¬Õâ¼Ò¹«Ë¾ÒªÇóÎÒÃÇ¿ª·¢Õâ¸öÐÂϵͳ¡£ÎÒÃÇÐèÒª±àдһ¸öÓ¦ÓóÌÐò£¬¶ÔÕâ¼Òº½¿Õ¹«Ë¾Î¨Ò»µÄÒ»¼Ü·É»ú£¨ÈÝÁ¿Îª10¸ö×ù룩µÄÿ¸öº½°à·ÖÅä×ùλ¡£Õâ¸öÓ¦ÓóÌÐòÓ¦¸ÃÊäÈëÏÂÃæÕâЩѡÏÇëÊäÈë1Ñ¡ÔñÍ·µÈ²ÕºÍÇëÊäÈë2Ñ¡Ôñ¾­¼Ã²Õ¡£Èç¹ûÓû§ÊäÈë1£¬Ó¦ÓóÌÐòÓ¦¸Ã·ÖÅäÒ ......

VB ʹÓÃWMI±à³Ì£¨Ò»£©

 
Óɵ×ÖÁÉÏÊÇ£º
          • ÍйÜ×ÊÔ´
          • WMI »ù´¡½á¹¹
          • ʹÓÃÕß
ÍйÜ×ÊÔ´
    ÍйÜ×ÊÔ´ÊÇÈÎÒâÂß¼­»òÎïÀí×é¼þ£¬Í¨¹ýʹÓà WMI ½øÐй«¿ªºÍ¹ÜÀí¡£¿ÉÒÔʹÓà WMI ¹ÜÀíµ ......

VB±àд³ÌÐòʵÏÖSRTÊÓÆµÍâ¹Ò×ÖÄ»

      ÔÚDVDRip¡¢MKVµÈ720P¸ßÇåÊÓÆµÖУ¬srt¡¢ssa¡¢ass¡¢idx¡¢subµÈÍâ¹Ò×ÖÄ»·Ç³£Á÷ÐУ¬²ÉÓõÄÏÔʾ¼¼ÊõºÁ²»ÀýÍâ¶¼ÊÇVSFilter£¨ÔçÆÚ°æ±¾ÊÇVobSub£©ºÍAviSynthÍâ¹Ò×ÖÄ»²å¼þ¡£ÏÔʾµÄµãÕóºº×ַdz£Æ¯ÁÁ£¡ÏÖÔÚÁ÷ÐеĶàýÌå²¥·ÅÆ÷£¬ÈçKMPlayer¡¢±©·çÓ°ÒôµÈ¶¼²ÉÓÃÁËÉÏÊöDirectVobSub¼¼Êõ¡£ËäÈ»DirectVobSub¼ ......

ÕÐÆ¸VBÈí¼þ¹¤³Ìʦ

VBÈí¼þ¹¤³Ìʦ£º
ְλÃèÊö£º
1¡¢½øÐбàÂë¡¢²âÊÔ£»
2¡¢Ôڹ涨ʱ¼äÄÚÌá½»Ô´´úÂë¡£
¸ÚλҪÇó£º
1¡¢ÊìϤMS SQLÊý¾Ý¿â£»
2¡¢ÊìϤVB 6.0£»
3¡¢ÓÐÒµÎñϵͳ¿ª·¢¾­Ñ飻
4¡¢¾ß±¸Á¼ºÃµÄÍŶӺÏ×÷¾«Éñ£¬ÇÚ·Ü¡¢ÉϽø£»
5¡¢´óר»òÕßÒÔÉÏѧÀú£»
6¡¢¾ßÓÐ1Äê»òÕßÒÔÉÏÏà¹Ø¹¤×÷¾­Ñé £»
7¡¢ÊìϤC#ÓÅÏÈ¡£
VBÐÂÊÖ¡¢³õ¼¶³ÌÐòÔ±¹«Ë¾Ìṩרà ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ