
Q́@~jEvOW

 @ƋČ~jEvOW߂Ă݂܂B
  S҂͂xe藝ĉB


yPz@ԏȃvO(Fast1.MAK)

 EForm1ɃR}hE{^PzuB
  tH[^Cg"ԏȃvO"ƂB
  {^̕\́A"I"ƂB
         
         +--------------------+
         |  ԏ۸ |              tH[^Cg(Caption)
         |--------------------|
         |        +-----+     |
         |        |I |     |              {^\(Caption)
         |        +-----+     |
         +--------------------+

 ẼR[h͂B
  Sub Command1_Click()
      End
  End Sub

 EsB(F5L[)

 EI{^ƃvOI


 V[g

 @EtH[^Cg(Caption)FtH[̃vpeBłB
  vpeCEXg"Caption"IB
  ݒl"Form1""ԏȃvO"ɕύXB

 @E{^\(Caption)FR}hE{^̃vpeBłB
  vpeCEXg"Caption"IB
  ݒl"Command1""I"ɕύXB

 @ESub Command1_Click()FTu[`̒`
            ^        ^
            |        |
            |        |
   @@     |    Cxg̎ށFClick͉ꂽƂ
   @@Rg[FR}h{^̂

 @EEndFvȌI

 @EEnd SubFTu[`̏I


yQz@LN^ER[h\(Ccode)

 EForm1ɃR}hE{^RzuB
  tH[^Cg"LN^ER[h\"ƂB
  {^(Command1)̕\""
  {^(Command2)̕\""
  O{^(Command3)̕\"I"ƂB

         +---------------------------------+
         |                       +-------+ |
         |                       | | |
         |                       +-------+ |
         |                       | | |
         |                       +-------+ |
         |                       |  I | |
         |                       +-------+ |
         +---------------------------------+

 ẼR[h͂B
  Sub Command1_Click()
      Cls
      Print ""
      For I = &H20 To &H7E
   If (I Mod 8)=0 Then Print
   Print Hex$(I);" ";Chr$(I);" ";
      Next
  End Sub

  Sub Command2_Click()
      Cls
      Print ""
      For I = &HA0 To &HDF
   If (I Mod 8)=0 Then Print
   Print Hex$(I);" ";Chr$(I);" ";
      Next
  End Sub

  Sub Command3_Click()
      End
  End Sub

 EsB
 E{^ƑΉ鏈sB

 V[g

 @EClsF\f[^B
 @EPrintFf[^̕\B
 @EForFForNext̊Ԃ̏JԂB
 @E&H20FPUi̐l\
 @EHex$Flf[^PUiɕϊB
 @EChr$Flf[^PɕϊB
 @EIfF(If  Then ^ Else U End If)B
 @EModFZ̗]ZoB

yRz@l̒[(Ints)

 EForm1ɂQ̃eLXgE{bNXƂP̃sN`[E{bNX
 @yсAI{^zuB
  tH[^Cg"l̒["ƂB
  I{^ݒ肷B
         +----------------------------+
         |                            |
         |        +---+   +---+       | L̐
         |        | T1|   | T2|       |   T1,T2:eLXgE{bNX
         |        +---+   +---+       |   P1   :sN`[E{bNX
         |  +---------------+  +----+ |   End  :I{^
         |  |   P1          |  | End| |
         |  +---------------+  +----+ |
         +----------------------------+

 ẼR[h͂BiI{^́AÕTvQƁj
  Sub Picture1_Click()
      Picture1.Cls
      A = Val(Text1.text)
      B = Val(Text2.text)
      C = A / B
      Picture1.Print "A/B=";C
      Picture1.Print "؎̂="; Int(C)
      Picture1.Print "؏グ="; Int(C + .9)
      Picture1.Print "ľܓ="; Int(C + .5)
  End Sub

 EsB

 EeLXgɐl͂sN`[E{bNX}EXŃNbNB
 @@vZʂA\B

 V[g

 @EPicture1.ClsFsN`[E{bNX̕\f[^B

 @EValFl𐔒lf[^ɕϊB
        (̋tŐl𕶎ɕϊ̂́AStr$)

 @EIntF_؂̂Ă֐B

 @EPrintFsN`[E{bNXɃf[^\B


ySz@f[^Ɛlf[^̊֌W(ValStr)

 EForm1ɊeRg[zuB
  
         +----------------------------+
         |                            |
         |        +---+   +---+       | L̐
         |        | T1|   | T2|       |   T1,T2:eLXgE{bNX
         |        +---+   +---+       |   P1   :sN`[E{bNX
         |  +---------------+  +----+ |   End  :I{^
         |  |   P1          |  | End| |
         |  +---------------+  +----+ |
         +----------------------------+

 ẼR[h͂B
  Sub Picture1_Click()
      Picture1.Cls
      T$ = Text1.text + Text2.text
      Picture1.Print "̑Z=";T$
      A = Val(Text1.text)
      B = Val(Text2.text)
      C = A + B
      Picture1.Print "l̑Z=";C
      D$ = Str$(A)
      E$ = Str$(B)
      F$ = D$ + E$
      Picture1.Print "ɖ߂=";F$
  End Sub

 EsB

 El͂ăsN`[E{bNXNbNƌʂ\B

 V[g

 @ET$F𑫂Zʂi[B
  (ۂɂ́A̕񂪘AB)

 @EStr$FlɕϊB
   (ʂƑꕶڂƓrɃXy[XĂ܂B
  @̃Xy[X́ATCZbg邽߂̂̂łB
  @}CiXf[^͂"-"\܂B)

 AbvEf[g

 @EF$ = D$ + E$̎̍sɈȉ̕ǉB
        F$=LTrim$(F$)

 @ELTrim$F̍ɗLXy[X菜֐B


yTz@f[^̒`FbN(Length)

 EForm1ɊeRg[zuB
         +----------------------------+
         |    +-----+   +-----+       |
         |    | T1  |   | C1  |       | L̐
         |    +-----+   +-----+       |      C1  :R}hE{^
         |    +-----------+           |
         |    |     P1    |   +-----+ |
         |    |           |   |  End| |
         |    +-----------+   +-----+ |
         +----------------------------+

 EeLXg{bNX
  MultiLinevpeB"False""True"ɕύX
  TextvpeB"Text1"""()ɕύX

 ER}hE{^
  CaptionvpeB"Command1""mF"ɕύX

 ẼR[h͂B
  Sub Command1_Click()
      Picture1.Cls
      L = Len(Text1.text)
      Picture1.Print L;""
      RC = MsgBox("܂B",1,"mF")
      If RC = 1 Then
        Text1.Text = ""
      End If
  End Sub

 EsB

 E͂ĊmF{^ƕ̒\B
 @͕邩̖₢킹ɓB
   eLXg͕s͉\ƂȂĂB


 V[g

 @ELenF̒o֐B

 @EMsgBoxF₢킹bZ[WE{bNX\֐B
  @@(ڍׂ́ARTCXQ)

 @EText1.Text=FeLXgEvpeBւ̑
   @(̏ꍇ́A񖳂ݒ肵Ă)

 @EMultiLinevpeB̌ʂ͂ǂłH
  킩ȂĺARTCXQƁB(sCR,LF2)


yUz@G(rbg}bv)\(Bitmap)

 EForm1ɊeRg[zuB

         +---------------------------+
         | +-------------+   +----+  |
         | |             |   | P2 |  |
         | |       P1    |   +----+  |
         | |             |   +----+  |
         | |             |   |End |  |
         | +-------------+   +----+  |
         +---------------------------+

 EsN`[E{bNX1
  PicturevpeB"none"
  @E"..."NbNƃt@CIʂ\B
  @Directories̃Xg[..]I(_uENbN)B
  @Directories̃Xg[windows]IB
  @Directories̃Xg[system]IB
  @Files̃Xgparty.bmpIB
    AutoSizevpeB"False""True"ɕύX

  EsN`[E{bNX2
    PicturevpeB"none"
  @E"..."NbNƃt@CIʂ\B
  @Directoris̃Xg[icons]IB
  @Directoris̃Xg[misc]IB
  @Files̃Xgmisc39BIB
    AutoSizevpeB"False""True"ɕύX

 Ep̃R[h͂܂

 Es

 EʂɊGoƂł傤B
   iPicturevpeBݒ肵_GoĂj


 V[g

 @EPicturevpeBɂ́Arbg}bv܂́AACRf[^
     ݒ肷邱Ƃł܂B
     Ŏgpf[^ȊOłt@C
     xxxxxxxx.bmp  rbg}bvf[^
     xxxxxxxx.ico  ACRf[^
     łΕ\ł܂B
 @EŃrbg}bv쐬ꍇ́A
     yCguVEc[gp܂B
 @EŃACR쐬ꍇ́A
     rdkpaintEc[gp܂B
                (SDKɓĂ)

 @EvOZ[ufBNgɒ
     ACRrbg}bvĂяo߂Ƀt@Cs
     JgfBNgύXĂ܂܂Bɖ߂ăZ[u
     ܂傤B



yVz@XN[o[g(Scroll)

 EForm1ɊeRg[zuB

         +---------------------------+
         | +---------------+         |  L̐
         | |        HS1    |         |    HS1 :z]EXN[
         | +---------------+         |         (XN[o[)
         | |        HS2    |         |
         | +---------------+  +----+ |
         | |        HS3    |  | End| |
         | +---------------+  +----+ |
         +---------------------------+

 EXN[o[13
   MinvpeB"0"ł邱ƂmF
   MaxvpeB"32767""255"ɕύX
   LargeChangevpeB"1""10"ɕύX
   SmallChangevpeB"1"ł邱ƂmF

 ẼR[h͂B
   Sub HScroll1_Change()
      Call Set_Color
   End Sub

   Sub HScroll2_Change()
      Call Set_Color
   End Sub

   Sub HScroll3_Change()
      Call Set_Color
   End Sub

   Sub Set_Color()          '(general)ɍ쐬B
      Picture1.Cls
      R = Hscroll1.Value
      G = Hscroll2.Value
      B = Hscroll3.Value
      Picture1.Backcolor = RGB(R,G,B)
      Picture1.Print R;G;B
   End Sub

 EsB

 EXN[o[𑀍삷ƁAsN`[E{bNX̐FωB

 V[g

 @ECallFʃTu[`̌Ăяo
  @(CalltÂSet_ColorƏłĂB)
 @EHscroll1.ValueFXN[o[݂̌̈ʒu
 @EBackcolorFwiF(OtBbN̐FForeColorɐݒ肷)
 @ERGB()FJ[l쐬֐R͐Ԃ̐,G΂̐,B̐
  @(éA0255̐l)


yWz@OtBbNg܂(Draws)

 EForm1ɏI{^̂ݔzu܂B

 ẼR[h͂B
   Dim PFlg As Integer '(general)ɋLqB

   Sub Form_MouseMove (Button ...,X As Single,Y As Single)
      If PFlg Then
        Line -(X,Y)
      End If
   End Sub

   Sub Form_MouseDown(Button ...,,X As Single,Y As Single)
      PFlg = Not PFlg
      If PFlg Then
        CurrentX = X
        CurrentY = Y
        MousePointer = 2
      Else
        MousePointer = 0
      End If
   End Sub

 EsB

 E}EXPNbNƃ}EX|C^\ɂȂB
 @̂܂܃}EXړƐ`B
 @ēx}EXNbNƃ}XE|C^Ƃ̖ɖ߂B
 @̏ԂŃ}EXړẮA`ȂB

 V[g
 @EDim PFlgFʕϐgeneralGAɋLqB
 @ELine -(X,Y)F`\bh
     ʏ́ALine (SX,SY)-(EX,EY)ƋLqB
     ̏ꍇ́AJgȈʒuwXY܂ŕ`悷B
 @ENot PFlgFPFlg̓\̂Qi01𔽓]B
     ̗ł́A0  -1(FFFF)ƂȂB
 @EIf PFlgFPFlg0łȂ(-1̏ꍇ)Then̏sB
 @ECurrentX,CurrentYFJgȈʒuvpeBB
     lƃJgʒulɕύXB
 @EMousePointerF}EX|C^̌`vpeBB
     2Ə\ɂȂB
     0ƂƂ̖ɖ߂B

 AbvEf[g
 @EDim PColor As Integer '(general)ɋLqB
 @EMousePointer=2̎̍sɎ̃R[hǉB
        PColor = PColor + 1
        If PColor > 15 Then PColor = 0     
        ForeColor = QBColor(PColor)
 @EQBColorQuickBasic݊J[R[h̍쐬֐B


yXz@낢Ȑ`(Lines)

 EForm1ɏI{^̂ݔzu܂B

 ẼR[h͂B
   Sub Form_Click()
      Cls
      DrawWidth = 1
      Line(100,1000)-(3000,1000)
      DrawWidth = 5
      Line(100,1500)-(3000,1500)
      DrawWidth = 8
      Line(100,2000)-(3000,2000)
      DrawWidth = 1
      For i = 0 To 6
        DrawStyle = i
        Y = (200 * i) + 1000
        Line(3500,Y)-(4500,Y)
      Next
   End Sub

 EsB

 EƉʂɐ`悳܂Bł܂H

 V[g

 @EDrawWidthF`敝ݒ肷vpeBB(ݒPʂ́Ahbg)

 @EDrawStyleF`ݒ肷vpeBB
   (0`6ڍׂ́ARTCXQ)


 AbvEf[g

 @ELine(3500,Y)-(4500,Y)
        Line(3500,Y)-(4500,Y + 150),,B
     ܂́A
        Line(3500,Y)-(4500,Y + 150),,BF
     ܂́A
        Line(3500,Y)-(4500,Y + 150),QBColor(i),BF
     ȂǂɕύXʂmF܂傤B

 @E~`ꍇ́ACircle(x,y),r,c,s,e,a
        x,yFSW
        r  Fa
        c  FF
        s  FJnpx
        e  FIpx
        a  Fc䗦
      Circle(600,1000),800,,,,3    'c~
        Ciecle(600,1000),800,,,,1/3  '~


yPOz@̂ݓ͂(Inank)

 EForm1ɊeRg[zuB
         +----------------------------+
         |                            |
         |        +--------+          | L̐
         |    | T1     |          |   gFx
         |        +--------+  +----+  |   @CaptionYɕύXB
         |                    |End |  |
         |                    +----+  |
         +----------------------------+

 EeLXg{bNX
   TextvpeB""ɕύXB

 ẼR[h͂B
   Sub ANK_CHK (InKey As Integer) '(general)
      C$ = Chr$(InKey)
      If C$ < "0" Or C$ > "9" Then
        If C$ >= " " Then
           Beep
           InKey = 0
        End If
      End If
   End Sub

   Sub Text1_KeyPress (KeyAscii As Integer)
      Call ANK_CHK(KeyAscii)
   End Sub

 EsB

 EeLXg{bNXɂ͐̂ݓ͂łB


 V[g

 @EANK_CHKF(general)ɏꂽTu[`͋ʏłB
     `邱ƂłB
     ߂ĺAɑ邱ƂɂĂяo̕ϐ
     B(C̃AhXnƂɂĂ)

 @EIf C$ < "0"...F͔̔rf[^𐔒lɕϊčs
     lĂBႦ΁AC$ɓĂ镶"A"Ƃ
     Ɛlł́A&H41ł"0"͐lł́A&H30łB
     ܂ If &H41 < &H30 ƓƂɂȂ܂B

 @EBeepF{̓̃uU[Z閽߂łB

 @ESub Text1_KeyPressFL[ꂽeLXg\O
     ĂяoTu[`B
      KeyAscii ͓͕R[hłB
      0 ɂƓ͂ȂƂɂȂB


yPPz@Elߓ͐Ɋ(Rightin)

 EForm1ɊeRg[zuB
         +----------------------------+
         |          +----------+      |
         |   El | T1       |      |
         |          +----------+      |
         |                     +----+ |
         |                     | End| |
         |                     +----+ |
         +----------------------------+

 ETextvpeB""ɕύXB(ɎwȂ""ݒ肵Ă)

 ẼR[h͂B
   Sub Right_in10 (TCon As Control,InKey As Integer) '(general)
      C$=Chr$(InKey)
      If C$<"0" Or C$>"9" Then
        If C$>=" " Then
           Beep : InKey=0
        End If
      Else
        KA = Val(Chr$(InKey))
        InKey = 0
        N@ = Val(TCon.Text)
        N@ = N@ * 10 + KA
        If N@ > 9999999999# Then
           Beep
           N@ = 0
        End If
        TCon.Text = Right$(Space$(10)+Str$(N@),10)
        TCon.Selstart = 10
      End If
   End Sub

   Sub Text1_KeyPress (KeyAscii As Integer)
      Call Right_in10(Text1, KeyAscii)
   End Sub

 EsB

 EeLXg{bNXɐl͂ƉEŕ\B

 V[g

 @ETCon As ControlFRg[Tu[`ɓnꍇ̒`B

 @ESpace$(10)FXy[X10쐬֐

 @ERight$(a$,10)FE10o֐

 @ESelStartFLbgʒu(̓J[\)


yPQz@͐A蕶̂݋(Insele)

 EForm1ɊeRg[zuB
         +----------------------------+
         |           +------------+   |
         |   M.T.S.H | T1         |   |
         |           +------------+   |
         |                     +----+ |
         |                     | End| |
         |                     +----+ |
         +----------------------------+

 ETextvpeB""ɕύXB(ȌwȂ""ݒ肵Ă)

 ẼR[h͂B
   Sub Select_in (CTbl As String,InKey As Integer) '(general)
      K$ = UCase$(Chr$(Inkey))
      i = Instr(CTbl,K$)
      If i Then
        InKey = Asc(K$)
      Else
        If InKey >= Asc(" ") Then
           Beep
           InKey = 0
        End If
      End If
   End Sub

   Sub Text1_KeyPress (KeyAscii As Integer)
      Call Select_in("MTSH",KeyAscii)
   End Sub

 EsB

 EeLXg{bNXɂ́AMTSH ȊO͓͂̕łȂB


 V[g

 @EUCase$Fw蕶񒆂̉pׂđ啶ɂB(͕s)

 @EInStrFCTbl̕񒆂K$̕Ԗڂɂ邩B
            ꍇ͈ʒuԍԂꍇ́A0Ԃ֐B

 AbvEf[g

 @E啶͂ƏɂȂlɂ邽߂Ɏ̊֐gpB
        LCase$ 

 @ȆFXĂ݂܂傤B


yPRz@IvVE{^gĂ݂(Optbut)

 EForm1ɊeRg[zuB
         +----------------------------+
         |  +------------+   +------+ |   L̐
         |  |    o1(0)   |   |  P1  | |     o1 FIvVE{^
         |  +------------+   +------+ |
         |  |    o1(1)   |            |     Rg[
         |  +------------+     +----+ |
         |  |    o1(2)   |     | End| |     RzuIndexvpeB
         |  +------------+     +----+ |     ()̐lݒ肷B
         +----------------------------+

 EIvV{^CtlName
   Option1`3 ׂFlagsɂB
 EIvV{^CaptionɎ̓eݒ肷B
   (0):Ji_
   (1):tX
   (2):{
 EO1Value-1ɐݒ肷B
 EP1Picture\VB\icons\flags\flgfran.ICOݒ肷B

 ẼR[h͂B
   Sub Flags_Click(Index As Integer)
      DIrs$="\VB\icons\flags\"
      Select Case Index
        Case 0
           flag$="flgcan.ICO"
        Case 1
           flag$="flgfran.ICO"
        Case 2
           flag$="flgjapan.ICO"
      End Select
      Picture1.Picture = LoadPicture(DIrs$+flag$)
   End Sub

 EsB

 Ee{^Iƃ}[NړƓɊGωB


 V[g

 @ESelect CaseFXe[gg
   @   Index̒lCase E̒lvꍇ
   @   ̍s玟Case܂ŎsB

 @ELoadPictureFPicturevpeBɊGǂ݂Đݒ肷B

 @ERg[͕KvɉēOŊǗƃvO
     ȒPɂȂꍇBɎg܂傤B


yPSz@`FbNE{bNXgĂ݂(Chkbox)

 EForm1ɊeRg[zuB
         +----------------------------+
         |                +--------+  |   L̐
         |    CB1(0)    |    P1  |  |     CB1F`FbNE{bNX
         |                +--------+  |
         |    CB1(1)                |
         |                    +----+  |
         |    CB1(2)        | End|  |
         |                    +----+  |
         +----------------------------+

 E`FbNE{bNXCaption͂̂܂܂ł悢B
  CtlName Chks ɕύXB

 ẼR[h͂B
   Sub Chks_Click (Index As Integer)
      Picture1.Cls
      Disp$ = ""
      For i = 0 To 2
        Disp$ = Disp$ + Str$(i + 1)
        If Chks(i).Value = 0 Then
           Disp$ = Disp$ + " OFF "
        Else
           Disp$ = Disp$ + " ON  "
        End If
      Next
      Picture1.Print Disp$
   End Sub

 EsB

 E`FbNE{^NbNƃ`FbNԂ\B


 V[g

 @EIf Chks(i).ValueFRg[CfbNXɂȂĂꍇ
     ̂悤Ȍ`ŃvpeBɐݒ܂́AQƂsB


yPTz@XgE{bNXgĂ݂(Listset)

 EForm1ɊeRg[zuB
         +----------------------------+
         |  +------------+   +------+ |
         |  |    T1      |   |  C1  | |   L̐
         |  +------------+   +------+ |     L1 FXgE{bNX
         |  +------------+   |  C2  | |
         |  |    L1      |   +------+ |
         |  |            |     +----+ |
         |  +------------+     | End| |
         |                     +----+ |
         +----------------------------+

 EeRg[Ɏ̓eZbgB(---͍ږ͖ݒ)
   Control   CtlName   Caption   Text
     C1     Command1    ǉ      ---
     C2     Command2    폜      ---

 ẼR[h͂B
   Sub Command1_Click()
      If RTrim$(Text1.text) = "" Then
        Beep
      Else
        List1.AddItem Text1.text
      End If
   End Sub

   Sub Command2_Click()
      If List1.Listindex < 0 Then
        Beep
      Else
        List1.RemoveItem List1.Listindex
      End If
   End Sub

 EsB
 E͂ǉ{^ƃXgɓ͓eo^B
 @Xg̍ڂI폜{^ƃXg폜B

 V[g

 @EList1.AddItemFXgɍڂǉ郁\bh
     ̏ꍇ́AXg̍ŌɒǉB
     List1.AddItem Text1.text, 0 Ƃ
     Xg̐擪ɒǉB
 @EList1.ListindexFXg̑IڔԍvpeB
     ڂIĂꍇ0̍ڔԍ
     IĂȂꍇ́A-1ƂȂĂB
 @EList1.RemoveItemFXg獀ڂ폜郁\bh

 Abvf[g

 @EList1 Sorted vpeB False  True ɕύX
     Xg͍Ōɒǉ悤ɂB
 @EsƃXg\[gĒǉ悤ɂȂB


yPUz@R{E{bNXgĂ݂(Combox)

 EForm1ɊeRg[zuB
         +----------------------------+
         |  +---------+ +--+          |   L̐
         |  |   CO1   | ||          |     CO1 FR{E{bNX
         |  +---------+ +--+ +------+ |
         |                   | o^ | |
         |                   +------+ |
         |                     +----+ |
         |                     | End| |
         |                     +----+ |
         +----------------------------+

 ER{E{bNXɂ́AX^C(Style)Rʂ肠B
 @@Wł́A0 ̃hbv_EER{ƂȂĂ
 @@@́AeLXg͂ƃhbv_EXg̑gݍ킹
 @@@̓eLXg{bNX̉ɏ͂ȂꂽƂɃ{^B
 @@ڂ́AeLXg͂ƃXg{bNX̑gݍ킹
 @@Oڂ́AeLXg\ƃhbv_EXg̑gݍ킹

 ẼR[h͂B
   Sub Command1_Click()
      If RTrim$(Combo1.text) = "" Then
        Beep
      Else
        Combo1.AddItem Combo1.text
      End If
   End Sub

 EsB

 E͂ǉ{^ƃhbv_EXgɓo^B
 @hbv{^ƃXg\B


 V[g

 @EAddItemFR{E{bNX̓Xg{bNXƓsB

 @EtextFR{E{bNX̓eLXg{bNXƓsB

 @E܂AeLXgƃXgE{bNX̂ƍl΂悢B


 Abvf[g

 @E폜{^ǉĂ݂܂傤B
     RemoveItem gč폜܂B


yPVz@낢R{E{bNX(com23)

 EX^C(Style) 2 3̃R{E{bNXzuB
         +----------------------------+
         |  +-----------+  +-----+--+ |
         |  |    CO1    |  |CO2  || |
         |  +-+---------+  +-----+--+ |
         |    |         |             |
         |    |         |      +----+ |
         |    |         |      | End| |
         |    +---------+      +----+ |
         +----------------------------+

 Ezu̕@́AʏʂR{E{bNXzuB
 @@@StylevpeB 0 1ɕύXB
  c̃TCYύX\ƂȂ܂As̑傫ɂB
  ́AeLXgƃXgE{bNX`łB
  eLXg͂łA펞Xg\ĂB
 @@@StylevpeB 1 2ɕύXB
  c̃TCY͕ύXł܂񉡃TCŶ݂łB
  ̓eLXg{bNXɃ{^`łB
  eLXg͂͂ł܂Ahbv_EEXg̑I
  ݂̂łB

 V[g

 @EStyle 2̃R{{bNX́A1̏ꍇƓłB

 @EStyle 3̃R{{bNX́AXgÎeLXg\
 @@܂BListIndexvpeBɂݒ肳ꂽXgڂeLXg
 @@\܂B

 Abvf[g

 @ECO1͒ǉƍ폜{^ǉĂ݂܂傤B

 @ECO2CO1őIڂ]L{^ŃXgǉ@\ǉ
 @@݂܂傤B

 @Ê̂悤ȃCAEgł傤B撣Ă݂܂傤B
         +------------------------------------+
         |  +-----------+  +----+  +-----+--+ |
         |  |    CO1    |  |ǉ|  |CO2  || |
         |  +-+---------+  +----+  +-----+--+ |
         |    |         |  |폜|             |
         |    |         |  +----+      +----+ |
         |    |         |  |]L|      | End| |
         |    +---------+  +----+      +----+ |
         +------------------------------------+


yPWz@vO̎dグ(Micon)

 EPƎsp̃t@C쐬܂B

 @@@Ƃ͎̓ł

 @@@EtH[(Form1)IconvpeBݒ肷B
 @@@@ݒ@́AŮG\̗v̂ŃACR(*.ICO)ݒ肵܂B
 @@@@ʏ́AŃfUCACRݒ肵܂B
 @@@@SDKPAINTgpăACR쐬Ă݂悤B

 @@@E-File-j[-Make EXE File-sRpC܂B
 @@@@s xxxxxx.EXẼt@C쐬܂B
 @@@@EXEt@CVBRUN100.DLLs}VɕʂΎs
 @@@@ł܂B


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




