
Q  Cxg

AvP[VɒʒmCxgɂĉD

Change - Rg[̏ԁiejω

        ΏہFCombo,DirList,DrvList,Scroll,Label,Picture,Text
        \FSub Form_Change()
              Sub ctlname_Change([Index])
                Index : CfbNXw肵ꍇ

          Combo   :XgIɂATextωƂ
                DirList :t@CEpX(Path)ύXƂ
                DrvList :IhCu(Drive)ύXƂ
                Scroll  :XN[𑀍삵AValueωƂ
                Label   :DDElinkɂύXCaptionύXƂ
                Picture :DDElinkɂύXPictureύXƂ
                Text    :TextύXƂ

              Sub HScroll1_Change ()
                   Text1.Text = Format$ (HScroll1.Value)
                End Sub


Click - Rg[}EXENbN

        ΏہFForm,Check,Combo,Command,DirList,FilList,Label,List,Menu,Option,Picture
        \FSub Form_Click()
              Sub ctlname_Click([Index])

          Combo   :Xg獀ڂIƂ
                List    :       
                Command :{^Ƃ(Xy[XL[܂)
                Option  :       
                ENTER   :ENTERL[ƂDefaultݒ{^ɒʒm
                ESC     :ESCL[ƂCancelݒ{^ɒʒm
                ̑  :NbNꂽRg[ɒʒm

              Sub Picture1_Click ()
                   Picture1.Move Picture1.Left + 750, Picture1.Top - 550
                End Sub
                                                                

DblClick - Rg[}EXE_uNbN

        ΏہFForm,Combo,DirList,FilList,Label,List,Option,Picture
        \FSub Form_DblClick() 
              Sub ctlname_DblClick([Index]) 
        
          Combo   :Xg獀ڂIƂ
                FilList :       
                List    :       
                DirList :PathύXꂽƂ
                FilList :FileNameύXꂽƂ
                ̑  :_uNbNꂽRg[ɒʒm

              Sub Form_Load ()
                   List1.AddItem "John"      ' Add list box entries.
                   List1.AddItem "Paul"
                   List1.AddItem "George"
                   List1.AddItem "Ringo"
                End Sub
                Sub List1_DblClick ()
                   Command1.Value = -1            ' Trigger Click event for Command1.
                End Sub
                Sub Command1_Click ()
                   Text1.Text = List1.Text      ' Display selection in text box.
                End Sub


DragDrop - Rg[̈Ń}EXEhbOJꂽ

        ΏہFForm,Check,Combo,Command,DirList,DrvList,FilList,Frame,Scroll,
              Label,List,Option,Picture,Text
        \FSub Form_DragDrop(Source,X,Y)
              Sub ctlname_DragDrop([Index,]Source,X,Y)
                Source  :hbOJnRg[
                X,Y     :݂̃}EXW

              Sub Pic_DragFrop(Source As Control,X As Single,Y As Single)
                   If Type Of Source Is PictureBox Then
                      Pic.Picture = Source.Picture
                   End If
                End Sub

                * PicturePicȊOɍ쐬Pictureݒ肵ĂADragMode
                1(Automatic)ɐݒ肷


DragOver - Rg[̈Ń}EXEhbO

        ΏہFForm,Check,Combo,Command,DirList,DrvList,FilList,Frame,Scroll,
              Label,List,Option,Picture,Text
        \FSub Form_DragOver(Source,X,Y,State)
              Sub ctlname_DragOver([Index,]Source,X,Y,State)
                Source  :hbOJnRg[
                X,Y     :݂̃}EXW
                State   : 0 ̈ɓ 
                          1 ̈悩o
                          2 ̈ړ

              Sub Picture1_DragOver (Source As Control, X As Single,
            Y As Single, State As Integer)
                   Const ENTER = 0
                   Const LEAVE = 1
                   Select Case State
                      Case ENTER
                      Source.DragIcon = LoadPicture("ICONS\ARROWS\POINT03.ICO")
                      Case LEAVE
                      Source.DragIcon = LoadPicture() '\
                   End Select
                End Sub
                Sub Picture1_DragDrop (Source As Control, X As Single, Y As Single)
                   Source.DragIcon = LoadPicture()
                End Sub


DropDown - R{{bNX̃XgJ

        ΏہFCombo
        \FSub ctlname_DropDown()
        
              Sub Combo1_DropDown()
                   While Combo1.ListCount  'Xgڐ`FbN
                      Combo1.RemoveItem 0  '擪ڍ폜
                   Wend
                   If Esoc = 1 Then
                      Combo1.AddItem "Eto" ,0
                      Combo1.AddItem "Hori",1
                      Combo1.AddItem "Arai",2
                      Esoc = 0
                   Else
                      Combo1.AddItem "Furuhashi",0
                      Combo1.AddItem "Nakajima" ,1
                      Combo1.AddItem "Nakayama" ,2
                      Esoc = 1
                   End If
                End Sub

                * XgJxɓeω܂


GotFocus - Rg[ɃtH[JX𓾂

        ΏہFForm,Check,Combo,Command,DirList,DrvList,FilList,Scroll,
              List,Option,Picture,Text
        \FSub Form_GotFocus()
              Sub ctlname_GotFocus([Index])

              Sub OptionGroup_GotFocus (Index As Integer)
                   Select Case Index
                      Case 0
                         Label1.Caption = "Option 1 has the focus."
                      Case 1
                         Label1.Caption = "Option 2 has the focus."
                   End Select
                End Sub
                Sub OptionGroup_LostFocus (Index As Integer)
                   Label1.Caption = ""
                End Sub


KeyDown,KeyUp - Rg[ŃL[ꂽEꂽ

        ΏہFForm,Check,Combo,Command,DirList,DrvList,FilList,Scroll,
              List,Option,Picture,Text
        \FSub Form_KeyDown(KeyCode,Shift)
              Sub ctlname_KeyDown([Index,]KeyCode,Shift)
              Sub Form_KeyUp(KeyCode,Shift)
              Sub ctlname_KeyUp([Index,]KeyCode,Shift)
                KeyCode :CONSTANT.TXTQ
                Shift   : 1 VtgEL[
                          2 Rg[EL[
                          4 AgEL[
                          ̑ L

              Sub Texts_KeyDown(Index As Integer,Keyascii As Integer)
                   If Keyascii = 13 Then cmdOK_Clik
                   If Keyascii = 27 Then cmdCAN_clik
                End sub

                * Indext̃eLXg͒ENTERƂOK{^
                Ƃ̏ĂяoAESCƂCAN{^
                Ăяo


KeyPress - Rg[ŃL[͂ꂽ

        ΏہFForm,Check,Combo,Command,DirList,DrvList,FilList,Scroll,
              List,Option,Picture,Text
        \FSub Form_KeyPress(KeyAscii)
              Sub ctlname_KeyPress([Index,]KeyAscii)
                KeyAscii: ANSI̕R[hɂɂ́AChr$(KeyAscii)

              Sub Text1_KeyPress (Keyascii As Integer)
                   C$ = Chr$(Keyascii)
                   Keyascii = Asc(UCase$(C$))
                End Sub


LinkOpen - ccdJn(T[o)

        ΏہFForm,Label,Picture,Text
        \FSub Form_LinkOpen(Cancel)
              Sub ctlname_LinkOpen([Index,]Cancel)
                Cancel  :s̎w(-1ݒ肷OpenȂ)

              Sub Form_LinkOpen(Cancel As Integer)
                   Const TURE = -1
                   Static OpenCount As Integer
                   OpenCount = OpenCount + 1
                   If OpenCount > 10 Then
                      Cancel = TURE
                   End If
                End Sub

                * 10ȏ̃NCAgۂĂ
                Cancelɐݒ肵Ȃ(0)Abm


LinkClose - ccdI(T[o)

        ΏہFForm,Label,Picture,Text
        \FSub Form_LinkClose()
              Sub ctlname_LinkClose([Index])
              
              Sub Form_LinkClose()
                   MsgBox "Link End "
                End Sub


LinkError - ccdŏQ(T[o)

        ΏہFForm,Label,Picture,Text
        \FSub Form_LinkError(LinkErr)
              Sub ctlname_LinkError([Index,]LinkErr)
                LinkErr : CONSTANT.TXTQ
                          1 T|[gĂȂtH[}bg
                          2-5 e평Ɏs
                          6 T[o~
                          7 N
                          8 v񂪒
                          9 vȂ
                         10 T|[gĂȂbZ[W
                         11 s
                         12 T|[gĂȂIy[V

              Sub MyTextBox_LinkError (LinkErr As Integer)
                   Select Case LinkErr
                      Case 1
                         Msg$ = "Data in wrong format."
                      Case 12
                         Msg$ = "Out of memory for DDE."
                   End Select
                   MsgBox Msg$, 48, "MyTextBox"
                End Sub


LinkExecute - ccdv(T[o)

        ΏہFForm
        \FSub Form_LinkExecute(CmdStr,cancel)
                CmdStr  :vꂽsR}h
                cancel  :
                          0 
                          1 

              Sub Form_LinkExecute(CmdStr As String,Cancel As Integer)
                   Const FALSE = 0 ,TRUE = -1
                   If Left$(CmdStr,6) = "[Quit]" Then
                      Cancel = FALSE
                      End
                   Else
                      Cancel = TRUE
                   End If
                End Sub

                * [Quit]MvO~


Load - tH[[hꂽ

        ΏہFForm
        \FSub Form_Load()

        tH[[Ƀ[fBOꂽŏɔ
        e평Lq

             Sub Form_Load ()
                  Combo1.AddItem "Medieval to Renaissance"      
                  Combo1.AddItem "Baroque to Classical"
                  Combo1.AddItem "Rock 'n Roll"
                  Combo1.AddItem "Ethnic/Folk"
                  Combo1.ListIndex = 2      ' ]ꏊ
               End Sub


LostFocus - Rg[̃tH[JX

        ΏہFForm,Check,Combo,Command,DirList,DrvList,FilList,Scroll,
              List,Option,Picture,Text
        \FSub Form_LostFocus()
              Sub ctlname_LostFocus([Index])

        GotFocusƑ΂ɂȂĂ

              Sub Text1_GotFocus ()
                   Text1.BackColor = RGB(255, 0, 0)
                   Label1.Caption = "ɂ"
                End Sub
                Sub Text1_LostFocus ()
                   Text1.BackColor = RGB(0, 0, 255)
                   Label1.Caption = "悤Ȃ"
                End Sub


MouseDown,MouseUp - Rg[Ń}EXꂽEꂽ

        ΏہFForm,FilList,Label,List,Picture
        \FSub Form_MouseDown(Button,shift,X,Y)
              Sub ctlname_MouseDown([Index,]Button,shift,X,Y)
              Sub Form_MouseUp(Button,shift,X,Y)
              Sub ctlname_MouseUp([Index,]Button,shift,X,Y)
                Button  :CONSTANT.TXTQ
                         1 LEFT BUTTON
                         2 RIGHT BUTTON
                Shift   :CONSTANT.TXTQ
                         1 SHIFT
                         2 CTRL
                X,Y     :݂̃}EXE|C^W

              Sub Form_MouseDown (Button As Integer, Shift As Integer,
                                         X As Single, Y As Single)
                   PaintNow = -1           @'_`Jn
                End Sub
                Sub Form_MouseUp (Button As Integer, X As Single, Y As Single)
                   PaintNow = 0            @'_`I
                End Sub
                Sub Form_MouseMove (Button As Integer, Shift As Integer,
                                         X As Single, Y As Single)
                   If PaintNow Then
                      PSet (X, Y)            '_\
                   End If
                End Sub
                Sub Form_Load ()
                   DrawWidth = 100           '`F̌
                   oreColor = RGB(0, 0, 255)
                End Sub


MouseMove - }EX|C^ړ

        ΏہFForm,FilList,Label,List,Picture
        \FSub Form_MouseMove(Button,shift,X,Y)
              Sub ctlname_MouseMove([Index,]Button,shift,X,Y)
                Button  :CONSTANT.TXTQ
                         1 LEFT BUTTON
                         2 RIGHT BUTTON
                Shift   :CONSTANT.TXTQ
                         1 SHIFT
                         2 CTRL
                X,Y     :݂̃}EXE|C^W

              Sub Form_MouseDown (Button As Integer, Shift As Integer,
                                         X As Single, Y As Single)
                   PaintNow = -1            ' Paintbrush on.
                End Sub
                Sub Form_MouseUp (Button As Integer, X As Single, Y As Single)
                   PaintNow = 0            ' Turn off painting.
                End Sub
                Sub Form_MouseMove (Button As Integer, Shift As Integer,
                                         X As Single, Y As Single)
                   If PaintNow Then
                      PSet (X, Y)
                   End If
                End Sub
                Sub Form_Load ()
                   DrawWidth = 10            ' Use wider 
                   paintbrush.ForeColor = RGB(0, 0, 255)
                End Sub


Paint - ĕ`悪vꂽ

        ΏہFForm,Picture
        \FSub Form_Paint()
              Sub ctlname_Paint([Index])

        AutoRedrawFalse(0)̏ꍇʒm(ʏ)
        True(-1)̏ꍇ́Aĕ`悳邽߂̒ʒḿAȂ        

              Sub Form_Paint ()
                   Dim HalfX, HalfY As Single
                   HalfX = ScaleLeft + ScaleWidth / 2      
                   HalfY = ScaleTop + ScaleHeight / 2      
                   Line (ScaleLeft, HalfY) - (HalfX, ScaleTop)
                   Line -(ScaleWidth + ScaleLeft, HalfY)
                   Line -(HalfX, ScaleHeight + ScaleTop)
                   Line -(ScaleLeft, HalfY)
                End Sub
                Sub Form_Resize
                   Refresh '\̈𖳌ɂ
                End Sub


PathChange - t@CXg{bNX̃pXύXꂽ

        ΏہFFilList
        \FSub ctlname_PathChange([Index])
                
              Sub File1_PathChange ()
                   Label1.Caption = "Path: " + Dir1.Path
                End Sub
                Sub Dir1_Change ()
                   File1.Path = Dir1.Path
                End Sub


PatternChange - t@C̃p^[ύXꂽ

        ΏہFFilList
        \FSub ctlname_PatternChange([Index])

              Sub Command1_Click ()      ' OK button clicked.
                   File1.FileName = Text1.Text
                   Label1.Caption = "Path: " + File1.Path
                End Sub
                Sub File1_PatternChange ()
                   Text1.Text = File1.Pattern      ' Set text to new pattern.
                End Sub


Resize - tH[̑傫ύXꂽ

        ΏہFForm
        \FSub Form_Resize()

              Sub Form_Load ()
                   Text1.Text = ""      ' Clear text.
                End Sub
                Sub Form_Resize ()
                   Text1.Move 0,0, ScaleWidth, ScaleHeight
                End Sub


Timer - ^C}[荞݂

        ΏہFTimer
        \FSub ctlname_Timer([Index])

              Sub Timer1_Timer ()
                   Label1.Caption = Time$      ' Update time display.
                End Sub


Unload - tH[jꂽ

        ΏہFForm
        \FSub Form_Unload(Cancel)
                Cancel  :0   j
                         -1  jۂ

              Sub Form_Unload (Cancel As Integer)
                   Msg$ = "Save Data before closing?"
                   Response% = MsgBox(Msg$, 3 + 32, "Save Dialog")
                   Select Case Response%
                      Case 2
                         Cancel = -1
                         Msg$ = "Command has been cancelled."
                      Case 6
                         Msg$ = "Data saved."
                      Case 7
                         Msg$ = "Data not saved."
                   End Select
                   MsgBox Msg$, 0, "Confirm"
                End Sub


        ŌE  LЍ]\tgItBX
        Copyright Etosoftoffice Co.,LTD. 1992/07/01



