ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¬O§_¦³§ó¾A¦X¦r¦êªº½s¿è­×§ï©O¡H

¦^´_ 10# dechiuan999
  1. 'InStr ¨ç¼Æ  ¶Ç¦^¦b¬Y¦r¦ê¤¤¤@¦r¦êªº³Ì¥ý¥X²{¦ì¸m¡A¦¹¦ì¸m¬° Variant (Long)¡C
  2. Private Sub TextBox2_Change()
  3.     Dim xl As Integer, xText As String
  4.     xText = TextBox1   '¦r¦ê=TextBox1
  5.     ComboBox1.Clear
  6.     Do While InStr(xText, TextBox2)
  7.         'While: ±ø¥ó¦¨¥ß   °õ¦æ¦^°é  ->  TextBox2¦r¦ê¦bxText¦r¦ê¤¤³Ì¥ý¥X²{¦ì¸m >1 => True¦¨¥ß,  0=>False ¤£¦¨¥ß
  8.         'Until: ±ø¥ó¤£¦¨¥ß °õ¦æ¦^°é
  9.         ComboBox1.AddItem xl + 1
  10.         xl = xl + 1
  11.         xText = Mid(xText, InStr(xText, TextBox2) + Len(TextBox2))
  12.         '¦r¦ê=­ç°£¤w¥X²{¦ì¸mªº¦r¤¸ªº¦r¦ê  ¥HÁקKµL½aªº°j°é
  13.         'InStr(xText, TextBox2) + Len(TextBox2) :³Ì¥ý¥X²{¦ì¸m+TextBox2ªº¦r¤¸¼Æ
  14.     Loop
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 11# GBKEE


    ª©¥D¤j¤j¦­¦w¡G

¤p§Ì¤w»â®©»yªk¤¤
DO WHILEªºÅܤƤF¡C
Sub aa()
    Dim mFlag As Boolean
    mFlag = True
    Do While mFlag
        MsgBox "²{¦b´ú¸Õ¤¤"
        mFlag = False
    Loop
End Sub

ª©¥D¤j¤j¬O§Q¥Î
InStr(xText, TextBox2)¤ÎxText
ªº§ïÅÜ

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD