Docstoc

visual basic 6 basics in Arabic

Document Sample
visual basic 6 basics in Arabic Powered By Docstoc
					                 ‫ﺑﺴﻢ ﺍﷲ ﺍﻟﺮﺣﻤﻦ ﺍﻟﺮﺣﻴﻢ‬
 ‫ﻗﺎﻝ ﺍﷲ ﺗﻌﺎﻟﻰ : )) ﻭﻣﺎ ﺃﻭﺗﻴﺘﻢ ﻣﻦ ﺍﻟﻌﻠﻢ ﺇﻻ ﻗﻠﻴﻼ (( ﺍﻹﺳﺮﺍﺀ ﺁﻳﺔ 58.‬

‫ﺍﻟﺤﻤﺪ ﷲ ﻭﻛﻔﻰ , ﻭﺻﻠﻰ ﺍﷲ ﻭﺳﻠﻢ ﻋﻠﻰ ﻧﺒﻴﻨﺎ ﺍﻟﻤﺼﻄﻔﻰ : ﻣﺤﻤﺪ ﺻﻠﻰ ﺍﷲ ﻋﻠﻴﻪ ﻭﺳﻠﻢ.‬
                                                                    ‫ﺃﻣﺎ ﺑﻌﺪ:‬
 ‫ﺇﺧﻮﺍﻧﻲ ﻓﻲ ﺍﷲ : ﻟﻴﺲ ﻫﻨﺎﻙ ﻋﻠﻢ ﻛﻌﻠﻢ ﺍﷲ ﻋﺰ ﻭﺟﻞ , ﻭﻻ ﻛﺘﺎﺏ ﺃﻗﻮﻯ ﻣﻦ ﻛﺘﺎﺏ‬
‫ﺍﷲ , ﻭﻟﻴﺲ ﻫﻨﺎﻙ ﻛﺘﺎﺏ ﻳﻀﺎﻫﻲ ﻛﺘﺎﺏ ﺍﷲ , ﻓﺎﻟﻜﺘﺎﺏ ﺍﻟﻮﺣﻴﺪ ﺍﻟﺬﻱ ﻻ ﻳﺤﻤﻞ ﺍﻟﺨﻄﺄ‬
‫ﻭﻻ ﺷﻚ ﻓﻴﻪ ﻫﻮ ﻛﺘﺎﺏ ﺍﷲ ) ﺍﻟﻘﺮﺁﻥ ﺍﻟﻜﺮﻳﻢ ( , ﻓﺄﻧﺎ ﺃﻗﺪﻡ ﻟﻜﻢ ﻫﺬﺍ ﺍﻟﻜﺘﺎﺏ ﻟﻨﺘﻌﻠﻢ‬
             ‫ﺑﻌﺾ ﺍﻷﺳﺎﺳﻴﺎﺕ ﻭﺑﻌﺾ ﺍﻟﺨﺼﺎﺋﺺ ﺍﻷﻭﻟﻴﺔ ﻓﻲ ﻟﻐﺔ :‬
               ‫6 ‪Microsoft Visual Basic‬‬



                       ‫ﺍ‬
                       ‫ﺇﻧﻬﺎ ﻟﻐﺔ ﻣﻔﻴﺪﺓ ﻭﺭﺍﺋﻌﺔ ﺟﺪﹰ‬
        ‫ﻣﻼﺣﻈﺔ ﻫﺎﻣﺔ : ﻳﻤﻨﻊ ﻧﺴﺦ ﺍﻟﻜﺘﺎﺏ ﺃﻭ ﻧﺸﺮﻩ ﺑﺪﻭﻥ ﺇﺫﻥ ﺍﻟﻤﺆﻟﻒ.‬
‫ﺃﺧﻲ ﺍﻟﻜﺮﻳﻢ : ﺇﺫﺍ ﻛﺎﻥ ﻫﻨﺎﻙ ﺃﻱ ﻣﻼﺣﻈﺔ ﺃﻭ ﺃﻱ ﺧﻄﺄ ﻓﻲ ﺍﻟﻜﺘﺎﺏ ﺍﻟﺮﺟﺎﺀ ﺇﺭﺳﺎﻟﻬﺎ‬
                                                   ‫ﺇﻟﻰ ﻭﺳﺎﺋﻞ ﺍﻻﺗﺼﺎﻝ ﺍﻟﺘﺎﻟﻴﺔ :‬

                          ‫ـــــــــــــــــ ال : 39504795566900‬
                   ‫و : ‪auttoyuse@hotmail.com‬‬           ‫ا‬        ‫ا‬
                ‫‪mohammadata@hotmail.com‬‬

                 ‫*‪Auto Teaching Of Yeses Use : AuttoYuse‬‬
                         ‫.‬     ‫ام ا‬        ‫ا‬    ‫*أو ز : ا‬

                                   ‫2‬
                            ‫ا‬      ‫ة‬

                                   ‫.‬    ‫أ‬               ‫:‬   ‫ا‬

‫أ‬     ‫م 9891م , و‬                       ‫آْ ا‬‫َ‬             ‫و‬
   ‫ا ا‬                      ‫ب م 6991م ,‬
    ‫ر‬          ‫ا ا‬            ‫, درس ا‬         ‫ا‬
             ‫ا‬          ‫وا‬         ‫يا ا‬             ‫ا‬      ‫ا‬
‫ً(‬       ‫ان‬         ‫ا‬          ‫)‬        ‫ا د‬                ‫ا‬
       ‫ا‬                                        ‫ا‬        ‫وا‬
   ‫آ‬     ‫ه ا ا م 7002‬           ‫رس ا ن‬      ‫د , وه‬         ‫ا‬
‫ل‬         ‫ة‬     ‫ا‬     ‫,و‬         ‫ذ ر‬           ‫ن‬       ‫ا‬
  ‫و ه ,و‬              ‫ا ا وا‬          ‫و‬          ‫وا‬        ‫ا‬
    ‫و‬      ‫ا‬      ‫ا‬               ‫زا‬     ‫ا و‬               ‫أ‬
                          ‫ا ن.‬      ‫ب‬     ‫ا‬          ‫و زال‬




                            ‫.‬          ‫إ د ة‬        ‫ا‬           ‫*‬
                            ‫3‬
                                                      ‫ﺍﻟﻔﻬﺮﺱ‬
                                               ‫) ﺍﻟﻔﺼﻞ ﺍﻷﻭﻝ (‬
‫ﺃﻫﻢ ﺧﺼﺎﺋﺺ ‪5.........................................................................................Text‬‬
‫ﺃﻫﻢ ﺧﺼﺎﺋﺺ ‪6...........................................................................Command‬‬
‫ﺃﻫﻢ ﺧﺼﺎﺋﺺ ‪7......................................................................................Timer‬‬
‫ﺃﻫﻢ ﺧﺼﺎﺋﺺ ‪8......................................................................................Label‬‬
‫ﺃﻫﻢ ﺧﺼﺎﺋﺺ ‪9......................................................................................Form‬‬
‫ﺃﻫﻢ ﺧﺼﺎﺋﺺ ﻋﻨﺎﺻﺮ ﺃﺧﺮﻯ............................................................................01‬
                                             ‫) ﺍﻟﻔﺼﻞ ﺍﻟﺜﺎﻧﻲ (‬
                                                                                     ‫ﺗﻄﺒﻴﻘﺎﺕ ﻭﺃﻣﺜﻠﺔ ﻣﺸﺮﻭﺣﺔ :‬
        ‫ﺇﺩﺧﺎﻝ ﺍﻟﻨﺺ.....................................................................................................21‬
         ‫ﺗﻐﻴﻴﺮ ﺍﻟﻠﻮﻥ......................................................................................................41‬
        ‫ﺍﻹﻇﻬﺎﺭ ﻭﺍﻹﺧﻔﺎﺀ................................................................................................41‬
         ‫ﺁﻟﺔ ﺣﺎﺳﺒﺔ.........................................................................................................51‬
         ‫ﺍﻟﺤﻤﺎﻳﺔ.............................................................................................................81‬
         ‫ﺍﻟﺘﻨﻘﻞ..............................................................................................................91‬
         ‫ﺇﺩﺧﺎﻝ ﺍﻟﺼﻮﺭ...................................................................................................02‬
        ‫ﺗﺸﻐﻴﻞ ﺍﻟﺼﻮﺕ ﺑﺪﻭﻥ ﺃﺩﺍﺓ ﺍﻟﺼﻮﺕ....................................................................22‬
         ‫ﺍﺳﺘﺨﺪﺍﻡ ﻟﻮﺣﺔ ﺍﻟﻤﻔﺎﺗﻴﺢ.....................................................................................42‬
         ‫ﺇﻧﺸﺎﺀ ﻗﺎﺋﻤﺔ ‪26...........................................................................Menu Editor‬‬
         ‫ﺇﻧﺸﺎﺀ ﻗﺎﺋﻤﺔ ‪28.....................................................................................Toolbar‬‬
       ‫ﺗﺸﻐﻴﻞ ﺍﻟﺼﻮﺕ ﻭﺍﻟﻔﻴﺪﻳﻮ ﺑﻮﺍﺳﻄﺔ ﺃﺩﺍﺓ ‪32......................................MMControl‬‬
         ‫ﺍﻟﺮﺑﻂ ﻣﻊ ﻗﺎﻋﺪﺓ ﺑﻴﺎﻧﺎﺕ ‪35...................................................................Access‬‬
        ‫ﺃﻳﻦ ﺗﺬﻫﺐ ﻟﻤﺰﻳﺪ ﻣﻦ ﺍﻟﻤﻌﻠﻮﻣﺎﺕ ﻭﺍﻟﺘﻄﺒﻴﻘﺎﺕ ﺍﻟﺠﺎﻫﺰﺓ......................................93‬

                                                             ‫4‬
                                     ( ‫ا ول‬             ‫)ا‬
                                    Text                     ‫أه‬

                                                                         ‫؟‬Text ‫ال: ه‬
‫ان‬    ‫مو‬                  ‫ت‬         ‫ضا‬         ‫و‬         ‫ا‬                      ‫رة‬   ‫ه‬
                                                                          .( 1   ).
                            1 ‫ﺸﻜل‬
                                                  :       ‫أه ا‬
      : ‫وط ه‬     .        ‫م ا دا‬          ‫ا ي‬    ‫ : وه ا‬Name
‫552 ف‬             ‫ي , أن ن ا‬          ‫فإ‬        ‫) أن ن ا ا‬
 .( ‫* , \ , / , + , - , = , > , < و ه‬   ‫ي‬     ‫ف وا , أن‬      ‫إ‬
                 .(           ,‫ر‬    ,         )      ‫ا‬                    ‫ا‬        : Alignment
                                   .( Flat , 3d ) . ‫ا ر‬                      ‫ : ا‬Appearance
                        .( .....,‫, أزرق‬           ‫.)أ‬      ‫ا‬                ‫ : ن‬Back color
                       .( None , Fixed Single ) .‫ا ود‬                          : Border Style
                               .( False , True ) .‫ام‬               ‫ا‬                 ‫ : ا‬Enabled
                                .(...,        ,‫ل‬         ,    ‫, عا‬              ‫ : ا . ) ا‬Font
                                       .( .....,‫, أزرق‬        ‫ : ن ا . ) أ‬Fore color
                                                      .( ‫. ) ر‬          ‫ا‬         ‫ : ل‬Height
                                                     .( ‫أ ً. ) ر‬             ‫ا‬          ‫ : ن‬Left
                             .( False , True ) .(               ‫عا‬           )‫ل‬          : Locked
                      .( ‫د ا وف أو ا ر م. ) ر‬                         ‫ : ا ا‬Max Length
             .( ‫ا . ) ف أو ر أو ر‬                          ‫د‬         ‫ : ر‬Password Char
                         .( False , True ) .‫إ ا ر‬                       ‫ : ا‬Right to Left
                .( ‫. ) أي ر أو ف أو ر‬                      ‫ا‬             ‫ب‬         ‫ا‬        ‫ : ا‬Text
‫أو‬   ‫. ) أي ر‬       ‫ا‬                       ‫ا‬               ‫ا ي‬           ‫ : ا‬Tool Tip Text
                                                                                  .( ‫ف أو ر‬
                                                  .( ‫د ً. ) ر‬                ‫ا‬         ‫ : ن‬Top
                                                   .( False , True ) .                    : Visible
                                                     .( ‫. ) ر‬         ‫ا‬          ‫ : ض‬Width
                                                                                  : ‫اءات‬         ‫أه ا‬
           .      ‫ا‬               ‫ر ا رة‬               ‫ا‬     ‫ : وه ا ث ا ي ث‬Click
       .    ‫ا‬               ‫آ ا رة‬                ‫ : وه ا ث ا ي ث‬Mouse Move
              .       ‫ىا‬                        ‫ا‬     ‫ : وه ا ث ا ي ث‬Change
                                                   5
                        ‫‪Command‬‬                    ‫أه‬

                                                ‫ال : ه ‪Command‬؟‬
                        ‫2 (.‬       ‫.)‬         ‫أ‬    ‫م‬  ‫زر‬  ‫رة‬    ‫ه‬
          ‫ﺸﻜل 2‬
                                                               ‫:‬          ‫أه ا‬
          ‫وط ه :‬        ‫.‬       ‫م ا دا‬             ‫ا ي‬        ‫‪ : Name‬وه ا‬
‫552 ف‬                   ‫ي , أن ن ا‬           ‫فإ‬              ‫) أن ن ا ا‬
 ‫* , \ , / , + , - , = , > , < و ه (.‬           ‫ي‬          ‫ف وا , أن‬          ‫إ‬
                    ‫, أزرق,..... (.‬     ‫ا ر. ) أ‬       ‫‪ : Back Color‬ن‬
            ‫ا ر. ) أي ر أو ف (.‬              ‫ب‬      ‫ا‬      ‫‪ : Caption‬وه ا‬
                                 ‫. ) ‪.( False , True‬‬             ‫‪ : Enabled‬ا‬
                     ‫,...(.‬     ‫ل,‬       ‫,‬     ‫, عا‬         ‫‪ : Font‬ا . ) ا‬
                                              ‫‪ : Height‬ل ا ر. ) ر (.‬
                                      ‫أ ً. ) ر (.‬        ‫ا‬          ‫‪ : Left‬ن‬
           ‫(.‬          ‫ا ر. ) ا ر‬               ‫‪ : Picture‬ا رة ا اد و‬
              ‫إ ا ر. ) ‪.( False , True‬‬             ‫‪ : Right To Left‬ا‬
                                          ‫ا ر ) دي , ر (.‬              ‫‪: Style‬‬
  ‫. ) أي ر أو ف أو ر (.‬     ‫ا‬           ‫ا‬        ‫ا ي‬   ‫‪ : Tool Tip Text‬ا‬
                                   ‫د ً. ) ر (.‬           ‫ا‬         ‫‪ : Top‬ن‬
                                     ‫. ) ‪.( False , True‬‬             ‫‪: Visible‬‬
                                             ‫‪ : Width‬ض ا ر. ) ر (.‬

                                                          ‫اءات :‬ ‫أه ا‬
            ‫ا ر.‬     ‫ر ا رة‬                 ‫ا‬   ‫‪ : Click‬وه ا ث ا ي ث‬
        ‫ا ر.‬     ‫آ ا رة‬             ‫ث‬       ‫‪ : Mouse Move‬وه ا ث ا ي‬




                                        ‫6‬
                        ‫‪Timer‬‬               ‫أه‬

                                                     ‫ه ‪Timer‬؟‬     ‫ال :‬
          ‫3 (.‬   ‫.)‬      ‫د ا‬            ‫ز‬                       ‫رة‬     ‫ه‬

  ‫ﺸﻜل 3‬                                                ‫:‬         ‫أه ا‬
        ‫وط ه :‬   ‫.‬        ‫م ا دا‬              ‫ا ي‬     ‫‪ : Name‬وه ا‬
‫552 ف‬             ‫ي , أن ن ا‬            ‫فإ‬           ‫) أن ن ا ا‬
 ‫* , \ , / , + , - , = , > , < و ه (.‬      ‫ي‬      ‫ف وا , أن‬         ‫إ‬
                           ‫. ) ‪.( False , True‬‬           ‫‪ : Enabled‬ا‬
          ‫( وأ‬   ‫. ) 0001 = 1‬            ‫ده ا‬      ‫‪ : Interval‬ا ة ا‬
     ‫535.56 (.‬      ‫(. ) ر أ‬               ‫ة ه )535.56 = 56 و‬
                                      ‫أ ً. ) ر (.‬         ‫‪ : Left‬ن ا‬
                                  ‫د ً. ) ر (.‬             ‫‪ : Top‬ن ا‬

                                                          ‫اءات :‬  ‫أه ا‬
                         ‫د.‬       ‫ز‬    ‫آ‬         ‫ث‬    ‫‪ : Timer‬ا ث ا ي‬




                                  ‫7‬
                                        Label               ‫أه‬

                                                                  ‫؟‬Label ‫ال: ه‬
‫ان‬     ‫مو‬                  ‫ت‬            ‫ضا‬      ‫و‬       ‫ا‬                 ‫رة‬   ‫ه‬
                                                                    .( 4   ).
                                        4 ‫ﺸﻜل‬
                                                                             :          ‫أه ا‬
            : ‫وط ه‬          .         ‫م ا دا‬                 ‫ا ي‬            ‫ : وه ا‬Name
‫552 ف‬                       ‫ي , أن ن ا‬                ‫فإ‬                   ‫) أن ن ا ا‬
  .( ‫* , \ , / , + , - , = , > , < و ه‬                   ‫ي‬               ‫ف وا , أن‬          ‫إ‬
         .(         ,‫, ر‬             )       ‫ا‬                     ‫ا‬          : Alignment
                           .( Flat , 3d ) . ‫ا ر‬                        ‫ : ا‬Appearance
.(False,True).‫ب‬                ‫ا‬       ‫را‬                          ‫ا‬           : Auto Size
                .( .....,‫, أزرق‬          ‫.)أ‬        ‫ا‬                ‫ : ن‬Back color
                                    .( ‫) ف , ن‬                     ‫ا‬        : Back Style
               .( None , Fixed Single ) .‫ا ود‬                            : Border Style
      .(       ‫. ) أي ف أو‬              ‫ا‬             ‫ب‬      ‫ا‬           ‫ : وه ا‬Caption
                                       .( False , True ) .                     ‫ : ا‬Enabled
                        .(...,        ,‫ل‬        ,      ‫, عا‬               ‫ : ا . ) ا‬Font
                               .( .....,‫, أزرق‬          ‫ : ن ا . ) أ‬Fore color
                                              .( ‫. ) ر‬           ‫ا‬          ‫ : ل‬Height
                                             .( ‫أ ً. ) ر‬               ‫ا‬          ‫ : ن‬Left
                 .( False , True ) .‫إ ا ر‬                        ‫ : ا‬Right to Left
   .( ‫. ) أي ر أو ف أو ر‬         ‫ا‬              ‫ا‬          ‫ا ي‬       ‫ : ا‬Tool Tip Text
                                          .( ‫د ً. ) ر‬                  ‫ا‬         ‫ : ن‬Top
                                            .( False , True ) .                    : Visible
                                             .( ‫. ) ر‬          ‫ا‬           ‫ : ض‬Width
                                                                             : ‫اءات‬     ‫أه ا‬
       .     ‫ا‬              ‫ر ا رة‬                ‫ا‬     ‫ : وه ا ث ا ي ث‬Click
 .      ‫ا‬             ‫آ ا رة‬               ‫ : وه ا ث ا ي ث‬Mouse Move
  ‫ دا‬Text       ‫ب‬      ‫ا‬           ‫.ا‬       ‫ ه ا‬Label    ‫ا‬   ‫ و‬Text        ‫ا‬        ‫*ا ق‬
Text     ‫ا‬                     ‫ا‬         ‫ , و‬Label    ‫ آ‬Caption             ‫ و‬Text      ‫ا‬
.       ‫ام ا‬   ‫لا‬          ‫ا‬                       Label   ‫ا‬                   ‫ام ا‬  ‫أ ءا‬
                                                    8
                                  Form                               ‫أه‬

                                        ‫؟‬Form ‫ال : ه‬
    ‫ و‬Text   ‫أي ع‬         ‫ا‬           ‫ا‬       ‫ا‬  ‫رة‬  ‫ه‬
           ‫ و ه‬Frame ‫ و‬Line‫ و‬Timer ‫ و‬Label ‫ و‬Command
                                         .( 5   ).    ‫ا‬
                                    5 ‫ﺸﻜل‬
                                                                    :             ‫أه ا‬
            : ‫وط ه‬          .      ‫م ا دا‬             ‫ا ي‬          ‫ : وه ا‬Name
‫552 ف‬                       ‫ي , أن ن ا‬           ‫فإ‬               ‫) أن ن ا ا‬
   .( ‫* , \ , / , + , - , = , > , < و ه‬            ‫ي‬            ‫ف وا , أن‬            ‫إ‬
                  .( .....,‫, أزرق‬      ‫. ) أ‬Form‫ا ـ‬         ‫ : ن‬Back Color
 .( ...Sizable , None,Fixed Single).‫ا ود‬                        : Border Style
 .( ‫. ) أي ف أو ر‬Form‫رأس ا ـ‬                     ‫ب‬      ‫ا‬       ‫ : وه ا‬Caption
                                   .( False , True ) .                 ‫ : ا‬Enabled
                                              .( ‫. ) ر‬Form‫ : ل ا ـ‬Height
                     .(          ‫. ) ا ر‬Form‫ا ـ‬           ‫د‬          ‫ا‬       ‫ : ا‬Icon
                                            .( ‫ أ ً. ) ر‬Form‫ : ن ا ـ‬Left
            .( False , True ) .Form‫ا ـ‬                      ‫ : ا رة‬Moveable
         .(            ‫. ) ا ر‬Form‫ا ـ‬               ‫ : ا رة ا اد و‬Picture
               .( False , True ) .‫إ ا ر‬                ‫ : ا‬Right To Left
.(       ‫.)ا ر‬                   ‫ا‬      Form‫ : ن ا ـ‬Start Up Position
    .( ‫. ) أي ر أو ف أو ر‬      ‫ا‬            ‫ا‬       ‫ا ي‬     ‫ : ا‬Tool Tip Text
                                     .( ‫د ً. ) ر‬              ‫ا‬          ‫ : ن‬Top
                                         .( False , True ) .               : Visible
                                                 .( ‫ : ض ا ر. ) ر‬Width
      .(      ‫.)ا ر‬                  ‫ا‬        Form‫ا ـ‬        : Window State

                                                                                     : ‫اءات‬    ‫أه ا‬
               .Form‫ا ـ‬     ‫ر ا رة‬                       ‫ا‬     ‫ : وه ا ث ا ي ث‬Click
            .Form‫ا ـ‬    ‫آ ا رة‬                   ‫ث‬           ‫ : وه ا ث ا ي‬Mouse Move
      .     ‫ا‬           ‫ و‬Form‫ا ـ‬                    ‫ة‬           ‫ا‬        ‫ث‬    ‫ثا ي‬     ‫ : وه ا‬Load
 .Form‫ا ـ‬         ‫ا‬    ‫ام أزرار‬             ‫اء ا ي‬           ‫ا‬            ‫ث‬   ‫ثا ي‬   ‫ : وه ا‬Key Down
                                             9
                  ‫ى‬    ‫أ‬                      ‫أه‬

                                                   ‫ه ‪Line‬؟‬     ‫ال :‬
‫6 (.‬    ‫ه ً. )‬               ‫و‬          ‫ا‬      ‫م‬             ‫رة‬     ‫ه‬

               ‫ﺸﻜل 6‬


                                                ‫ال : ه ‪Frame‬؟‬
          ‫7 (.‬         ‫.)‬         ‫ا‬           ‫م‬     ‫إ ر‬ ‫رة‬    ‫ه‬


                                                    ‫ﺸﻜل 7‬




                                      ‫ال : ه ‪ Image‬أو ‪Picture‬؟‬
 ‫8 (.‬     ‫رة. )‬             ‫ي‬         ‫م‬     ‫ده ا‬         ‫رة‬    ‫ه‬

                                                     ‫ﺸﻜل 8‬




                                            ‫ال : ه ‪Combo Box‬؟‬
 ‫.‬      ‫ر وا‬                ‫دة‬    ‫ت‬            ‫ي‬          ‫رة‬  ‫ه‬
                                                       ‫9 (.‬   ‫)‬

                                                    ‫ﺸﻜل 9‬




                                 ‫01‬
                                                         ‫ال : ه ‪Shape‬؟‬
    ‫01 (.‬             ‫.)‬         ‫ا‬          ‫م‬             ‫أ له‬   ‫رة‬    ‫ه‬

                                                ‫ﺸﻜل 01‬



                                                   ‫ال : ه ‪Check box‬؟‬
‫11 (.‬       ‫أو إ ءه . )‬                          ‫و‬    ‫ك‬    ‫أداة‬ ‫رة‬   ‫ه‬
                                                                ‫ﺸﻜل 11‬




                                            ‫ال : ه ‪Option Button‬؟‬
            ‫ا ـ‪Form‬‬             ‫وا ة‬        ‫م و د أآ‬     ‫أداة‬  ‫رة‬  ‫ه‬
                                                     ‫21 (.‬    ‫ر. )‬  ‫ا‬
                                                          ‫21‬   ‫ﺸﻜل‬




                                                  ‫ال : ه ‪MMControl‬؟‬
        ‫31 (.‬              ‫.)‬    ‫ت وا‬       ‫ا‬       ‫م‬    ‫أداة‬ ‫رة‬    ‫ه‬

                ‫31‬   ‫ﺸﻜل‬




‫)) ﺳﻨﺘﻌﻠﻢ ﺍﻟﺨﺼﺎﺋﺺ ﺍﻟﻤﻬﻤﺔ ﻟﻠﻌﻨﺎﺻﺮ ﺍﻟﺴﺎﺑﻘﺔ ﻭﻛﻴﻔﻴﺔ‬
        ‫ﺍﺳﺘﺨﺪﺍﻣﻬﺎ ﻓﻲ ﺍﻟﻔﺼﻞ ﺍﻟﺜﺎﻧﻲ ﺑﺈﺫﻥ ﺍﷲ((‬



                                       ‫11‬
                  ‫(‬        ‫ا‬        ‫)ا‬
                 ‫و‬              ‫ت وأ‬

                  ‫**‬  ‫**إد ل ا‬
                  ‫ا ن**‬    ‫**‬
                               ‫6 ‪.Visual Basic‬‬     ‫1- ا‬
                                 ‫‪.Standard EXE‬‬     ‫2- ا‬
‫ن‬    ‫ا ا ا‬      ‫ا ا‬      ‫ـ‪, Form‬‬             ‫ا نأ‬    ‫3-‬
                           ‫:‬      ‫ذ ا‬     ‫أ ً. و‬
                         ‫41 (.‬   ‫.)‬     ‫ا‬     ‫أ- اذه إ ا‬

    ‫41‬   ‫ﺸﻜل‬

                       ‫51 (.‬         ‫)‬       ‫ا زرار ا‬          ‫ب- ا‬
                                                   ‫51‬   ‫ﺸﻜل‬


               ‫61 (.‬       ‫)‬         ‫آ‬   ‫أ‬        ‫نا‬      ‫أن‬    ‫4-‬




                          ‫61‬   ‫ﺸﻜل‬




                           ‫21‬
         ‫ار‬           ‫ر‬       ‫ا‬               ‫أ‬             ‫ا دوات ا‬          Label ‫أداة‬             ‫5- ا‬
                                                                    .ً   ً
                                                                         ‫آ ا‬     ‫ وا‬Form‫ا ـ‬
                                                          .ً ‫ا دو‬ ً           ‫ا‬   ‫ا‬                   -6
                                      :               ‫ب‬                    ‫ة. و‬           ‫أ‬           -7
Private Sub Label1_Click()

End Sub
                                                                                  :                 ‫8- أآ‬
Label1.caption="                      "
                                                                 :       ‫آ‬    ‫ا‬       ‫نا‬   ‫أن‬         -9
Private Sub Label1_Click()
Label1.caption="   "
End Sub
                              .                   ‫ا‬                  ‫ا‬        F5 ‫زر‬                 ‫01- ا‬
.ً                ‫آ‬                       ,                    ‫ , ا‬Form‫ا ـ‬    Label1       ‫آ‬          -11

                                                  *‫*ا ح‬
                                      Private Sub Label1_click()
     .            ‫أو ا‬                ‫ا‬        1 ‫ر‬      ‫ا‬   ‫اء‬   ‫: ا ا‬
                                          Label1.caption="     "
     .(                   )           ‫ب=آ‬       ‫ا‬    ‫ا‬      1 ‫ر‬     ‫ا‬                           :
                                                   End sub
                                              .‫اء‬   ‫ا‬     :

                               ‫.آ‬ :     ‫ا ا‬                    ‫ا‬                                       *
                                  Label1.visible=True
                           . =‫ر‬      ‫ا‬          1 ‫ر‬        ‫ا‬
                                  Label1.visible=False
                         . =‫ر‬      ‫ا‬         1 ‫ر‬     ‫ا‬
                             Label1.backcolor=vbBlack
                      .‫= أ د‬      ‫نا‬            1 ‫ر‬      ‫ا‬
                                  Label1.font.size=18
                       .18 =   ‫ا‬               1 ‫ر‬     ‫ا‬
                             Label1.forecolor=vbGreen
              .         ‫ب=أ‬     ‫ا‬    ‫نا‬           1 ‫ر‬        ‫ا‬
     *(                  ‫ا‬                    ‫ر‬     ‫ا ا داة‬                                    )*


                                                                  13
                                               * ‫و‬                 ‫*أ‬
 Private Sub Form_Load()
 Text1.text="Book" + "ed"
 Form1.caption="                           "
 Form1.caption= 3 + 3
 Text2.text= 5 * 3
 End sub

 Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Form1.backcolor=vbBlue
 Timer1.interval=5000
 Command3.left=2500
 Label1.left=Label1.left + 50
 Command5.left= Command3.top – 100
 Text1.enabled=false
 Command2.caption=""
 End sub
                                       Private Sub Form_Load()
                       .   ‫ا‬         ‫و‬             ‫ا ة‬     Form‫ا ا اء ـ‬
                                       Text1.text="Book" + "ed"
                .Booked=" ed" + "Book" ‫ب = آ‬           ‫ا‬    ‫ا‬        1 ‫ر‬    ‫ا‬
                                   Form1.caption="                  "
                    .(               )     =‫ب‬       ‫ا‬    ‫ا‬      1 ‫ ر‬Form‫ا ـ‬
                                         Form1.caption=3 + 3
                          33 =3 + 3 = ‫ب‬      ‫ا‬   ‫ا‬         1 ‫ ر‬Form‫ا ـ‬
                                        Text2.text= 5 * 2
                         10 = 2 * 5 = ‫ب‬     ‫ا‬   ‫ا‬          2 ‫ر‬    ‫ا‬
. ‫ءا‬    ‫إ‬         ‫ا‬        ‫ا‬    ‫ر‬   .‫أ ى‬              ‫ا‬     .‫ح‬   ‫وا‬       ‫ب وا‬    ‫ا‬                  ‫:ه ا‬
                                                   End sub
                                                   ‫ا اء‬
  Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
                  .1 ‫ا ر ر‬          ‫ا رة‬        ‫أو‬             1 ‫ر‬      ‫ا‬   ‫ا ا اء‬
                                           Form1.backcolor=vbBlue
                                     .‫= أزرق‬      ‫نا‬          1 ‫ ر‬Form‫ا ـ‬
                                             Timer1.interval=5000
                                      .( ‫آ 0005 ) آ 5 ا‬        1 ‫ر‬        ‫ا‬
                                             Command3.left=2500
                                      .2500     ‫ا‬         ‫ا‬      3 ‫ا رر‬
                                             Label1.left=Label1.left + 50
                       .       50‫ـ‬      ‫أ‬                ‫ا‬              1 ‫ر‬   ‫ا‬
                                       Command5.left= Command3.top – 100
            .         100‫ـ‬     ‫أ‬     3 ‫ا دي ر ر‬             ‫ا‬       ‫ا‬           5 ‫ا رر‬
                                             Text1.enabled=false
                                   .          =      ‫ا‬        1 ‫ر‬     ‫ا‬
                                            Command2.caption=""
                                         ‫ب رغ‬     ‫ا‬    ‫ا‬        2 ‫ا رر‬
                                                    End sub
                                                    ‫ا اء‬
                                           :    ‫أ ا‬                ‫ا رة ا‬           ‫ال : ا ح ا رة ا و و‬
                                                                 Label1.width=Label2.width + 65 -‫أ‬
       ................................................................................................................

                                                                            Timer2.autosize=65.545 -‫ب‬
       ................................................................................................................
                                                          14
                             **               **
                                                   .Visual Basic 6         ‫1- ا‬
                                                     .Standard EXE         ‫2- ا‬
‫ع‬                  ‫ ( و‬Command ) ‫ع‬                    ‫ زر‬Form‫ا ـ‬           ‫3- أ‬
‫ع‬        ‫أدوات‬    ‫ ( وأر‬Label ) ‫ع‬                       ‫ت‬            ‫ ( و‬Text )
                                                                   .( Option )
                                                      :        ‫ا‬         ‫ء‬     *
                 .Tool Box            ‫د‬            ‫با‬       ‫ا‬    ‫ا‬           ‫أ- ا‬
                             .       ‫ا‬                  ‫ وار‬Form‫ب- اذه إ ا ـ‬
                                          :          ‫ آ‬Form‫أن ن ا ـ‬           -4




Properties Window : ‫ت وه‬           ‫أر‬             ‫5- آ أ‬
        .Toolbox ‫ و‬Form Layout Window ‫ و‬Project Explorer‫و‬
                        :   ‫ا زرار ا‬      ‫ره ا ا ا‬      *

   ‫آ‬      ‫ا‬      , Properties             ‫إ‬        ‫اذه‬      Label1             ‫6- ا‬
   .‫ا ول‬ ‫:ا‬            ‫ا واآ‬              ‫ا‬                              , Caption
   ‫آ‬      ‫ا‬      , Properties             ‫إ‬        ‫اذه‬      Label2             ‫7- ا‬
   .   ‫ا‬ ‫:ا‬            ‫ا واآ‬              ‫ا‬                              , Caption
   ‫آ‬      ‫ا‬      , Properties             ‫إ‬        ‫اذه‬      Label3             ‫8- ا‬
       . ‫:ا‬            ‫ا واآ‬              ‫ا‬                              , Caption
, Text ‫آ‬           ‫ , ا‬Properties                   ‫اذه إ‬        Text1         ‫9- ا‬
                                      .       ‫ا‬             ‫ا‬
, Text   ‫آ‬        ‫ا‬   , Properties                 ‫اذه إ‬        Text2         ‫01- ا‬
                                      .       ‫ا‬             ‫ا‬
, Text ‫آ‬          ‫ , ا‬Properties     ‫ اذه إ‬Text3                              ‫11- ا‬
      , Locked    ‫آ‬      ‫أ‬    ‫ا . ا‬        ‫ا‬
    .      ‫ما‬              ‫ا‬      .True   ‫ا ري. ا‬
                                     15
  ‫آ‬                 ‫ا‬      , Properties            ‫اذه إ‬          Command1             ‫21- ا‬
      .       ‫دا‬        ‫:إ‬          ‫واآ‬        ‫ا‬      ‫ا‬                            , Caption

  ‫آ‬                  ‫ , ا‬Properties          ‫إ‬              ‫اذه‬      Form‫ا ـ‬             ‫31- ا‬
  .                  :           ‫واآ‬  ‫ا‬                  ‫ا‬                        , Caption
    ‫وا‬            ‫ا ري. ا‬                                , Border Style ‫آ‬              ‫أ‬      ‫ا‬
  .                    ‫ا‬    ‫ أ ء ا‬Form‫ا ـ‬                       ‫م‬      ‫ا‬       Fixed Single
    ‫وا‬            ‫ا ري. ا‬                                 , Right to Left ‫آ‬            ‫أ‬      ‫ا‬
                                   .‫إ ا ر‬                ‫ ا‬Form‫ان ا ـ‬                   True
                       :‫ا ى‬         ‫زاو ا‬                     ‫ا‬      ‫ا‬      ‫أ‬     ‫*إذا أردت أن‬
‫زك إذا‬                    ‫ا‬     ‫وا‬        ‫.ا‬                                , Icon          ‫*ا‬
                                                                         .( ‫. ) ا ري‬        ‫آن‬
   ‫آ‬                    ‫ا‬       , Properties            ‫ اذه إ‬Option1                    ‫41- ا‬
          .+ ‫أو‬             :          ‫واآ‬     ‫ا‬           ‫ا‬                      , Caption
   ‫آ‬                    ‫ا‬       , Properties            ‫ اذه إ‬Option2                    ‫51- ا‬
          .- ‫ح أو‬           :          ‫واآ‬     ‫ا‬           ‫ا‬                      , Caption
   ‫آ‬                    ‫ا‬       , Properties            ‫ اذه إ‬Option3                    ‫61- ا‬
   .× ‫ب أو‬                  :          ‫واآ‬     ‫ا‬           ‫ا‬                      , Caption
   ‫آ‬                    ‫ا‬       , Properties            ‫ اذه إ‬Option4                    ‫71- ا‬
     .÷ ‫أو‬                  :          ‫واآ‬     ‫ا‬           ‫ا‬                      , Caption
                            :      ‫ آ‬Form‫ا ـ‬       ‫ن‬     ‫أن‬       ‫ت‬    ‫آ ه ا‬        ‫81- وا ن‬




                                                       16
      ‫ا‬        ‫ا‬               .ً ‫دو‬      ‫ا‬
                                          ً        (       ‫دا‬   ‫زر ) إ‬            ‫91- ا‬
                                                                   .     ‫ا آ اد ا‬
                                              :                   ‫ا‬    ‫ة‬        ‫02- أآ‬
Dim A,B
A=Val(Text1.text)
B=Val(Text2.text)
If Option1.Value=True Then
Text3.Text=A + B
End if
If Option2.Value=True Then
Text3.Text=A - B
End if
If Option3.Value=True Then
Text3.Text=A * B
End if
If Option4.Value=True Then
Text3.Text=A / B
End if
                                               .            ‫ا‬      F5 ‫ح‬          ‫12- ا‬
  ‫ا‬       ‫وا‬       ‫أي ر‬         ‫ا‬       ‫ا‬     ‫و‬          ‫ا ول أي ر‬     ‫ا‬        ‫22- أآ‬
                                         .(            ‫ا ر)إ دا‬           ‫ا‬           ‫ا‬
                                                                   :     ‫دا‬    ‫* حا‬
                                             Dim A,B
                         .( ‫س , ص‬        ) . B‫ و‬A      ‫ّف ا‬
                                     A=Val(Text1.text)
                   .‫ا ول‬   ‫ا‬           ‫و د‬       ‫د .و‬       =A          ‫ا‬
                                     B=Val(Text2.text)
                   .   ‫ا‬   ‫ا‬           ‫و د‬       ‫د .و‬       =B          ‫ا‬
                               If Option1.Value=True Then
                                     Text3.Text=A + B
                                              End if
                             .‫م‬      ‫ا‬         ‫ا ت‬        ‫أداة ا‬    ‫إذا آ‬
                      B      ‫+ا‬A          ‫=ا‬       ‫ا ص‬       ‫ا‬
                                        ‫ا ط‬
                                   *‫ا د‬          ‫*وه ا‬




                                              17
                                    **        ‫**ا‬
                                                       .Visual Basic 6       ‫1- ا‬
                                                         .Standard EXE       ‫2- ا‬
‫ع‬                   ‫ ( و‬Command ) ‫ع‬                      ‫ زر‬Form‫ا ـ‬          ‫3- أ‬
                                                                        .( Text )
                                                          :        ‫ا‬       ‫ء‬     *
                  .Tool Box               ‫د‬            ‫با‬       ‫ا‬    ‫ا‬         ‫أ- ا‬
                                .        ‫ا‬                  ‫ وار‬Form‫ب- اذه إ ا ـ‬
                                               :         ‫ آ‬Form‫أن ن ا ـ‬         -4




Properties Window : ‫ت وه‬            ‫أر‬               ‫5- آ أ‬
           .Toolbox ‫ و‬Form Layout Window ‫ و‬Project Explorer‫و‬
                           :   ‫ا زرار ا‬      ‫ره ا ا ا‬      *

, Text ‫آ‬      ‫ , ا‬Properties                           ‫اذه إ‬        Text1           ‫6- ا‬
PasswordChar ‫آ‬       ‫أ‬    ‫. ا‬                      ‫ا‬            ‫ا‬
      ‫يو‬    ‫آ‬     ‫أن‬   ‫را ي‬                        ‫ا‬       ‫أآ‬                           ,
                                                                            .*   ‫را‬
    ‫آ‬          ‫ , ا‬Properties            ‫اذه إ‬          Command1                   ‫7- ا‬
            .‫: د ل‬         ‫ا واآ‬             ‫ا‬                              , Caption
     ‫آ‬         ‫ , ا‬Properties             ‫اذه إ‬                Form‫ا ـ‬             ‫8- ا‬
.         ‫: ما‬           ‫واآ‬     ‫ا‬         ‫ا‬                                , Caption
       ‫ا ري. ا‬                       , Border           Style ‫آ‬               ‫أ‬     ‫ا‬
   ‫ا‬       ‫ أ ء ا‬Form‫ا ـ‬               ‫م‬        ‫ا‬           Fixed Single              ‫وا‬
.‫ا ري‬                          , Right to Left           ‫آ‬         ‫أ‬       ‫. ا‬
                   .‫إ ا ر‬       ‫ ا‬Form‫ان ا ـ‬                          True      ‫وا‬      ‫ا‬
                :‫ا ى‬         ‫زاو ا‬             ‫ا‬             ‫ا‬       ‫أ‬      ‫*إذا أردت أن‬
‫زك إذا‬                ‫ا‬   ‫وا‬           ‫.ا‬                              , Icon           ‫ا‬
                                                                .( ‫. ) ا ري‬         ‫آن‬
                                         18
                          :               ‫ آ‬Form‫ا ـ‬            ‫ن‬         ‫أن‬            ‫ت‬         ‫آ ه ا‬      ‫9- وا ن‬




.Open           ‫ا‬         Add Form                      Project         ‫وا‬         ‫ا‬       ‫ا دوات‬           ‫01- اذه‬
     :         ‫رة ا‬               ‫ آ‬Project                                       ‫.و‬             Form          -11




     .‫ي‬               ‫إ‬               ‫ل‬        ‫ا‬              ‫ا ي‬             ‫ا‬        ‫ ه ا ي‬Form2 ‫أن‬         ‫21- ا‬
          .‫ر‬              ً ‫دو‬             ً
                                           ‫ا‬           Form1 ‫ر‬                    Project                     ‫31- ا‬
 .         ‫ا آ اد ا‬                                ‫ا‬      ‫ا‬             .ً ‫دو‬      ً
                                                                                   ‫ا‬       ( ‫زر ) د ل‬         ‫41- ا‬
                                                                    :                        ‫ا‬        ‫ة‬      ‫51- أآ‬
 If Text1.Text="8k5" Then
 MsgBox"       ‫ا‬         ‫,"أه و‬vbInformation
 Form2.Show
 Unload me
 Else
 MsgBox"            ‫,"آ‬vbCritical
 End if
                                                   ‫حا د‬
                                           "8k5" ‫ر 1 = آ‬        ‫ا‬     ‫ى‬                           ‫إذا آ ن‬
                "                 ‫ا‬             ‫" أه و‬                ‫ر‬                                 ‫أ‬
                                                 .Form2‫ا ـ‬    ‫أ‬
                                                 ‫ا‬         ‫ما‬       ‫ا‬
                                                       ‫وإ ا‬
                              "                 ‫"آ‬                ‫ر‬                               ‫أ‬
                                                   ‫ا ط‬
                                                                  19
                         **‫ر‬ ‫**إد ل ا‬
                                     .Visual Basic 6        ‫1- ا‬
                                       .Standard EXE        ‫2- ا‬
‫ع‬       ‫ (. و‬Image ) ‫ع‬      ‫ر‬            Form‫ا ـ‬            ‫3- أ‬
  Picture ‫ر‬            ‫ و‬Image ‫ر‬              ‫(. وه ا ه‬Picture)
                                         .Tool Box ‫ا دوات‬

                      Picture                       Image

   :      ‫ءا‬    ‫ ا‬Picture ‫ر‬              ‫ أ‬Image ‫ر‬        ‫ن‬
        .Picture         ‫ا رة‬     ‫و‬          Image ‫ر‬         -‫أ‬
              .Picture        ‫ ون ود‬Image ‫ب- ن ا رة‬
                                       :        ‫ا‬      ‫ء‬     *
                 .Tool Box      ‫د‬   ‫با‬       ‫ا‬    ‫ا‬        ‫أ- ا‬
                           .   ‫ا‬         ‫ وار‬Form‫ب- اذه إ ا ـ‬
                                  :   ‫ آ‬Form‫أن ن ا ـ‬        -4




Properties Window : ‫ت وه‬           ‫أر‬             ‫5- آ أ‬
        .Toolbox ‫ و‬Form Layout Window ‫ و‬Project Explorer‫و‬
                        :   ‫ا زرار ا‬      ‫ره ا ا ا‬      *

  ‫آ‬          ‫ا‬  , Properties         ‫ اذه إ‬Image1             ‫6- ا‬
          ‫,ا‬             .        ‫ا‬                    , Picture
   ‫رة‬      ‫ا‬      .Open             ‫زك وا‬       ‫ه‬        ‫رة ا‬     ‫ا‬
           .Properties       Strength ‫آ‬           ‫ا‬     .Form‫ا ـ‬
                       .True    ‫ا‬           ‫ا ري. ا‬

                                20
   ‫د‬      ‫. وه ا‬Strength ‫ّ أ‬               ‫رة‬       ‫ا‬        ‫ا نا‬         -7
                 .Picture ‫ر‬                     ‫د‬        ‫ و‬Image ‫ر‬
    ‫آ‬         ‫ , ا‬Properties          ‫اذه إ‬          Form‫ا ـ‬            ‫8- ا‬
    . ‫: ون ا‬             ‫ا واآ‬          ‫ا‬                        , Caption
      ‫وا‬   ‫ا ري. ا‬                      , Border Style ‫آ‬              ‫أ‬     ‫ا‬
    .          ‫ا‬    ‫ أ ء ا‬Form‫ا ـ‬              ‫م‬     ‫ا‬       Fixed Single
      ‫وا‬   ‫ا ري. ا‬                      , Right to Left ‫آ‬             ‫أ‬     ‫ا‬
    ‫ دا‬Form‫ا ـ‬          .‫إ ا ر‬        ‫ا‬    Form‫ان ا ـ‬                  True
.Properties            Start Up Position ‫آ‬             ‫ا‬      ‫و ا‬
          .Center Screen       ‫وا‬          ‫ا ري. ا‬
               :‫ا ى‬         ‫زاو ا‬            ‫ا‬     ‫ا‬      ‫أ‬      ‫*إذا أردت أن‬
‫زك إذا‬             ‫ا‬     ‫وا‬        ‫.ا‬                       , Icon          ‫ا‬
                                                       .( ‫. ) ا ري‬       ‫آن‬
                                           :        ‫ آ‬Form‫ن ا ـ‬   ‫أن‬      -9




                                      21
                        **‫ت‬       ‫ت ون أداة ا‬            ‫ا‬     **
                                                        .Visual Basic 6    ‫1- ا‬
                                                           .Standard EXE   ‫2- ا‬
  .Add Module            ‫ا‬    .‫ي‬           ‫ا‬        ‫ا‬    Project           ‫3- ا‬
                                                                     .Open     ‫ا‬
   .‫ء‬       ‫دي ا‬        ‫تو دا‬          ‫ا‬                    ‫ر . أآ‬                -4
  Option Explicit
  Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  Public Const SND_SYNC = &H0
  Public Const SND_ASYNC = &H1
  Public Const SND_NODEFAULT = &H2
  Public Const SND_LOOP = &H8
  Public Const SND_NOSTOP = &H10
  Public Sub PlaySound(strSound As String)
    Dim wFlags%
    wFlags% = SND_ASYNC Or SND_NODEFAULT
    sndPlaySound strSound, wFlags%
  End Sub
                         *‫ت‬        ‫ا‬                ‫د‬   ‫*هاا‬
Properties Window : ‫ت وه‬           ‫أر‬             ‫5- آ أ‬
        .Toolbox ‫ و‬Form Layout Window ‫ و‬Project Explorer‫و‬
                        :   ‫ا زرار ا‬      ‫ره ا ا ا‬      *

                    :         ‫آ‬        Project Explorer              ‫ن‬   ‫أن‬       -6




        .    ً ‫دو‬   ً
                    ‫ا‬    Project Explorer                      Form1             ‫7- ا‬
    ‫آ‬          ‫ , ا‬Properties          ‫اذه إ‬      Form‫ا ـ‬                        ‫8- ا‬
.‫أ ات‬           :        ‫ا واآ‬          ‫ا‬                  , Caption
      ‫ا ري. ا‬                      , Border Style ‫آ‬           ‫أ‬    ‫ا‬
  ‫ا‬       ‫ أ ء ا‬Form‫ا ـ‬              ‫م‬       ‫ا‬   Fixed Single        ‫وا‬
.‫ا ري‬                        , Right to Left ‫آ‬        ‫أ‬   ‫. ا‬
             .‫إ ا ر‬        ‫ا‬   Form‫ان ا ـ‬             True      ‫وا‬     ‫ا‬
            Start Up Position ‫آ‬           ‫ا‬    ‫و ا‬          ‫ دا‬Form‫ا ـ‬

                                               22
‫‪Center‬‬       ‫وا‬         ‫ري. ا‬   ‫ا‬                   ‫‪.Properties‬‬
                                                         ‫‪.Screen‬‬
            ‫ا ى:‬          ‫زاو ا‬      ‫ا‬     ‫ا‬    ‫أ‬      ‫*إذا أردت أن‬
‫زك إذا‬           ‫ا‬     ‫وا‬       ‫.ا‬                ‫‪, Icon‬‬          ‫ا‬
                                             ‫. ) ا ري (.‬       ‫آن‬
   ‫ا دو .‬‫ً‬         ‫ع ) ‪ .( Command‬وا‬     ‫ا ـ‪ Form‬زر‬           ‫9- أ‬
                                       ‫:‬             ‫ا‬     ‫01- أآ‬
    ‫"‪PlaySound "c:\windows\media\windows xp startup.wav‬‬
                          ‫ت.‬       ‫.‬      ‫ا‬           ‫5‪F‬‬    ‫11- ا‬
             ‫در ه ا.‬      ‫ع ‪Wav‬‬    ‫ت‬                    ‫1:‬      ‫*‬
   ‫وذ‬         ‫ع ‪Wav‬‬     ‫زك‬      ‫ت‬     ‫أي‬                ‫2:‬      ‫*‬
‫ف أو‬     ‫زاد‬     ‫.‬   ‫ا لا‬           ‫آ‬       ‫ا‬        ‫ر وا‬
                                  ‫ت.‬     ‫ي‬                ‫ف‬




                                    ‫32‬
                     **            ‫ا‬ ‫**ا‬      ‫ام‬
                                  .Visual Basic 6                           ‫1- ا‬
                                      .Standard EXE                         ‫2- ا‬
 .    ‫رة‬    ‫رة‬        ‫ أد‬Image ‫ر‬          Form‫ا ـ‬                           ‫3- أ‬
               .View Code   ‫ وا‬Form‫ا ـ‬         ‫را‬                           ‫4- ا‬
                          :   ‫ا‬    ‫ا‬         ‫ا‬                                -5


                           .Form  ‫ وا‬General                       ‫6- اذه إ‬
                       .Load ‫ آ‬Declarations    ‫ا‬                         -7
 ‫ وا‬Declarations       ‫نآ‬    ‫ءت‬    ‫ ا‬Load    ‫آ‬                         ‫8- ا‬
                                                                 .KeyDown
                                                   :       ‫آ‬             -9
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub
                                                       :                  ‫01- أآ‬
If KeyCode = vbKeyUp Then
Image1.Top = Image1.Top - 10
End If
If KeyCode = vbKeyDown Then
Image1.Top = Image1.Top + 10
End If
If KeyCode = vbKeyRight Then
Image1.Left = Image1.Left + 10
End If
If KeyCode = vbKeyLeft Then
Image1.Left = Image1.Left - 10
End If

                                               ‫ح‬
                      If KeyCode = vbKeyUp Then
                     Image1.Top = Image1.Top - 10
                                End If
                               ‫ا‬          ‫ا را‬             ‫إذا‬
           .‫ت‬   10                         = ‫ا أ‬           ‫و‬     ‫رة‬   ‫ا‬
                                       ‫ا ط‬
                          **            ‫ا‬     ‫** وه ا‬


                                         24
   ‫زر ا‬                  ‫أ‬   ‫.‬         ‫ا‬       ‫5‪F‬‬              ‫11- ا‬
‫ا رة‬          ‫ا‬      ‫زر ا‬          ‫ا‬   ‫مو‬        ‫رة‬   ‫ما‬       ‫ا ي‬
                                         ‫.‬     ‫ا‬        ‫وه ا‬
          ‫.‬       ‫رات و‬           ‫ل ه ا ا رس‬              ‫:‬




                             ‫52‬
                                **Menu Editor        ‫**إ ء‬
                                                    .Visual Basic 6       ‫1- ا‬
                                                      .Standard EXE       ‫2- ا‬
                 .Menu Editor            ‫. ا‬Form‫ا ـ‬         ‫ر ا رة ا‬      ‫3- ا‬
                           :             ‫ه آ‬               ‫أن‬        ‫ا‬    ‫4- ا‬




      .Next               ‫ا‬     .F :  Name ‫. و‬         :  Caption        ‫5- أآ‬
                               :‫هاا ر‬   ‫وا ي‬          ‫ا را يا ه‬           ‫6- ا‬
.‫ق‬              ‫: إ‬              Caption      ‫. أآ‬    ‫ا ط و‬                -7
     .Next            ‫ا‬       .F1 :   Short cut       ‫. ا‬E :   Name        ‫واآ‬
                         :‫هاا ر‬           ‫ر وا ي‬      ‫ه‬  ‫ا را يا‬           ‫8- ا‬
.‫ة‬          :          Caption            ‫. أآ‬        ‫ى‬  ‫طأ‬                  -9
                                         .Next       ‫. ا‬H :   Name          ‫واآ‬
                              :‫هاا ر‬     ‫وا ي‬         ‫ا را يا ه‬          ‫01- ا‬
.‫وج‬     ‫ا‬        ‫: آ‬         Caption      ‫. أآ‬        ‫ا ط و‬                -11
                          .F2 :   Short cut          ‫. ا‬HE :     Name      ‫واآ‬
                                                     :   ‫آ‬     ‫أن ن ا‬     -12



                                              26
                                                           ‫‪.OK‬‬           ‫31- ا‬
    ‫آ‬      ‫‪ , Properties‬ا‬            ‫اذه إ‬      ‫ا ـ‪Form‬‬                  ‫41- ا‬
         ‫‪True‬‬      ‫وا‬       ‫ا ري. ا‬                    ‫‪, Right to Left‬‬
      ‫و ا‬             ‫ا ـ‪ Form‬دا‬         ‫إ ا ر.‬       ‫ان ا ـ‪ Form‬ا‬
              ‫‪.Properties‬‬            ‫آ ‪Start Up Position‬‬                  ‫ا‬
                         ‫‪.Center Screen‬‬      ‫وا‬         ‫ا ري. ا‬
            ‫ا ى:‬            ‫زاو ا‬          ‫ا‬     ‫ا‬     ‫أ‬       ‫*إذا أردت أن‬
‫زك إذا‬           ‫ا‬       ‫وا‬         ‫.ا‬                    ‫‪, Icon‬‬          ‫ا‬
                                                    ‫. ) ا ري (.‬        ‫آن‬
       ‫:‬    ‫آ‬       ‫إ ق أآ‬             ‫ا‬           ‫ا ـ‪Form‬‬          ‫51- ا‬
   ‫‪End‬‬
   ‫‪Unload me‬‬
 ‫:‬     ‫ا وج اآ‬               ‫آ‬            ‫ا‬        ‫ة‬     ‫ا ـ‪Form‬‬        ‫61- ا‬
   ‫إ ق"‪MsgBox‬‬                        ‫ا‬               ‫‪",vbinformation‬ا‬
                                 ‫أ‬       ‫.‬     ‫ا‬        ‫ح 5‪F‬‬            ‫71- ا‬
        ‫ا وج‬     ‫آ‬    ‫ة‬                      ‫, وإذا‬       ‫إ ق ف إ قا‬
          ‫1‪F‬‬         ‫. وا‬            ‫ا‬    ‫آ ا وج‬         ‫ك‬       ‫ر‬            ‫أ‬
        ‫زر 1‪F‬‬            ‫ا‬                 ‫أ‬     ‫و‬            ‫إ‬            ‫أن ا‬
‫ق‬       ‫إ‬    ‫آ‬   ‫ك‬               ‫ر‬              ‫. وه ا زر 2‪, F‬‬         ‫إ قا‬
                                                                     ‫.‬        ‫ا‬



                                              ‫72‬
               **Toolbar            ‫ء‬      ‫**إ‬
                                        .Visual Basic 6     ‫1- ا‬
                                            .Standard EXE   ‫2- ا‬
      .Components    ‫ا‬          ‫ا‬         ‫ ا‬Project         ‫3- ا‬
                                             :   ‫آ‬            -4




           .OK     ‫ا‬            ‫وا‬    ‫ا را‬                  ‫5- ا‬
Microsoft Windows Common Controls 6 (SP6)




                           28
         ‫ا ـ‪.Form‬‬         ‫وار‬       ‫‪ Tool Box‬ا دوات ا‬             ‫6- ا‬
                                         ‫:‬     ‫ن ا ـ‪ Form‬آ‬   ‫أن‬     ‫7-‬




   ‫آ‬     ‫ا‬   ‫‪Properties‬‬         ‫إ‬     ‫اذه‬   ‫1‪ImageList‬‬            ‫8- ا‬
                                                             ‫‪.Custom‬‬
                                               ‫:‬     ‫آ‬              ‫9-‬




       ‫زر ‪Insert picture‬‬             ‫‪.Images‬‬
                                      ‫ا‬                    ‫01- ا‬
             ‫جإ‬        ‫را‬    ‫ا‬    ‫ه . آ أن‬        ‫را را‬
                                    ‫إ 1‪.ImageList‬‬       ‫أد‬      ‫أ‬
‫‪ Toolbar‬وزر‬         ‫إ‬      ‫زر‬                      ‫ضه أ‬        ‫*‬
        ‫ا رض.‬       ‫ت‬              ‫ا ء وزر‬      ‫ت‬
                                 ‫ا ر.‬                ‫أن ن‬
‫رة. وه ا ا ـ‪Index‬‬     ‫ور ر ا ـ‪Index‬‬          ‫أو‬      ‫أن‬      ‫11-‬
                                       ‫:‬   ‫رة آ‬      ‫د قآ‬

                                     ‫92‬
          .        ‫ا‬    ‫ ه : 1. وه ا‬Index‫رة ا رض ر ا ـ‬    :     *
              .‫ه‬          ‫إد ل ا ر ا‬             OK         ‫21- ا‬
 ‫اذه‬               ‫وا‬             ‫ ا ي‬Form‫ ا ـ‬Toolbar1‫31- اذه ـ‬
                                  .Custom    ‫ ا‬Properties        ‫إ‬
                                           :   ‫آ‬              -14




.ImageList1        ‫ وا‬ImageList         ‫ا ي‬        ‫ا‬   ‫ا‬         ‫51- ا‬
                                              .Buttons     ‫ا‬   ‫اذه إ‬
                                   30
    ‫آ‬         ‫ا ي‬       ‫ا‬‫. اذه إ‬Insert Buttons ‫ا ر‬                    ‫61- ا‬
             .‫ا ر‬        ‫ه‬        ‫رة ا‬     Index‫ر ا ـ‬           ‫ واآ‬Image
                                                    .1 ‫ه ر‬                *
        ‫ا‬       ‫ا ي‬    ‫آ ا‬              ‫ر‬               ‫أن‬        :       *
                                                 .Caption ‫آ‬             ‫ا ي‬
.OK           ‫. ا‬SA :        ‫ أي آ‬Key ‫آ‬            ‫ا ي‬      ‫ا‬        ‫71- أآ‬
                           .      ‫ه آ‬         ‫د ا زرار ا‬        ‫:أ‬        *
                 .Form‫د ا ـ‬          ‫ ا‬Toolbar1          ‫ا دو‬ ً       ‫81- أ‬
                     :               ‫ا‬      ‫. أآ‬      ‫ا‬                 -19
    Select Case Button.Key
    Case "SA"
    MsgBox " ‫........إ‬  ‫ا‬        ‫ا ا رض و‬      ", vbInformation
    End Select
‫أ‬           .‫رة‬        ‫ا را ي‬               ‫. وا‬       ‫ا‬      F5     ‫02- ا‬
                                        :          ‫ا رض آ‬    ‫ت‬




                                       31
       **MMControl ‫أداة‬       ‫ا‬            ‫ا ت وا‬       **
                                           .Visual Basic 6     ‫1- ا‬
                                               .Standard EXE   ‫2- ا‬
       .Components        ‫ا‬            ‫ا‬      ‫ ا‬Project        ‫3- ا‬
                                                :   ‫آ‬            -4




           .OK      ‫ا‬                        ‫وا‬    ‫را‬   ‫ا‬      ‫5- ا‬
Microsoft Multimedia Control 6.0




                                  32
        : ToolBox                  ‫. وه ا ه‬ToolBox               -6
‫ع‬            ‫ً زر‬   ‫أ‬       ‫. وار‬Form‫ا ـ‬           ‫وار‬         ‫7- ا‬
, Label ‫ع‬                  ‫, و‬Text ‫ع‬                 ‫ , وار‬Command
    : ‫ا رة‬        ‫آ‬       ‫م‬          ‫. و‬Option ‫ع‬       ‫تا ر‬      3‫و‬




     ‫إ‬   ‫اذه‬   , Properties       ‫إ‬    ‫اذه‬   MMcontrol1         ‫8- ا‬
                                              .False  ‫ وا‬Visible ‫آ‬
 :                 ‫. أآ‬               (      ) ‫زر‬    ‫ا دو‬ ً     ‫9- ا‬
     If Option1.Value = True Then
     MMControl1.DeviceType = "WaveAudio"
     MMControl1.FileName = Text1.Text
     MMControl1.Command = "Open"
     MMControl1.Command = "Play"
     End If
     If Option2.Value = True Then
     MMControl1.DeviceType = "AviVideo"
     MMControl1.FileName = Text1.Text
     MMControl1.Command = "Open"
     MMControl1.Command = "Play"
     End If
     If Option3.Value = True Then
     MMControl1.DeviceType = "Sequencer"
     MMControl1.FileName = Text1.Text
     MMControl1.Command = "Open"
     MMControl1.Command = "Play"
     End If
‫ ( و‬Avi      ) ‫ ه‬Option2 ‫ ( و‬Wav ‫ت‬      ) ‫ ه‬Option1 ‫أن‬   ‫* آ‬
     ‫. أ إذا آ ن‬   ‫ا دا‬              .( mid ‫ت‬    ) ‫ ه‬Option3
 .‫ك‬     ‫ة‬      ‫و‬     ‫ا‬   ‫ا رة‬      ‫أ‬     ‫, ا ل‬      ‫ا‬   ‫ا رة‬

                                      33
         ‫. أآ‬                 ‫(‬       ‫زر ) إ ف‬          ‫دو‬   ‫ً‬
                                                             ‫ا‬         ‫01- ا‬
                                                                   ‫:‬
    ‫"‪MMControl1.Command = "Stop‬‬
‫ت‬      ‫تا‬       ‫ًأ‬     ‫ن‬     ‫أن‬           ‫.‬       ‫ا‬   ‫5‪F‬‬           ‫11- ا‬
                                   ‫:‬       ‫ا‬        ‫زك.‬                 ‫وا‬
                     ‫:‬            ‫5‪ .F‬ا‬                  ‫ا‬      ‫أن‬       ‫*‬
‫ت ‪( wav‬‬       ‫)‬        ‫ع ‪ .wav‬ا‬                 ‫تا ي‬         ‫أ- إذا آ ن ا‬
                                 ‫:‬        ‫‪Text‬‬    ‫ا‬                    ‫واآ‬
   ‫‪C:\windows\media\start.wav‬‬
‫.‬       ‫إ ف‬        ‫. وا‬                 ‫أن‬      ‫.‬                    ‫ا‬
                      ‫ة أ ى.‬                      ‫إ أن‬
   ‫‪ ( avi‬واآ‬    ‫)‬          ‫ع ‪ .avi‬ا‬              ‫ا ي‬        ‫ب- إذا آ ن ا‬
                                        ‫:‬      ‫‪Text‬‬     ‫ا‬
   ‫‪C:\windows\clock.avi‬‬
‫.‬       ‫إ ف‬        ‫. وا‬                 ‫أن‬      ‫.‬                    ‫ا‬
                      ‫ة أ ى.‬                      ‫إ أن‬
‫ت ‪( mid‬‬      ‫)‬       ‫ع ‪ .mid‬ا‬                  ‫تا ي‬       ‫ـ- إذا آ ن ا‬
                                 ‫:‬        ‫‪Text‬‬    ‫ا‬                    ‫واآ‬
   ‫‪C:\windows\media\town.mid‬‬
‫.‬       ‫إ ف‬        ‫. وا‬                 ‫أن‬      ‫.‬                    ‫ا‬
                      ‫ة أ ى.‬                      ‫إ أن‬




                                     ‫43‬
                        ‫ت ‪**Access‬‬          ‫ة‬              ‫**ا‬
                                                          ‫‪.Access‬‬                    ‫1- ا‬
‫ت‬    ‫ة‬       ‫)‬         ‫ى وا‬       ‫ا‬    ‫ا‬   ‫اذه إ‬     ‫(‬      ‫( )‬                 ‫)‬    ‫2- ا‬
                                                                                  ‫ر (.‬
         ‫ا نا ي‬                    ‫: ‪ .Database‬وا‬             ‫. أآ‬                     ‫3-‬
             ‫‪.OK‬‬                ‫‪ Visual Basic‬ا‬                      ‫ا ي‬
                                ‫(.‬       ‫ضا‬              ‫ول‬      ‫)إ ء‬                    ‫4- ا‬
                                                         ‫:‬        ‫آ‬                        ‫5-‬




   ‫ت)‬     ‫عا‬       ‫: ‪ Customer ID‬ا‬          ‫ا ول‬                        ‫ا‬               ‫6- أآ‬
      ‫ا ار وه :‬              ‫ا‬     ‫زر ا ح ا‬                                     ‫ا‬   ‫(‬
          ‫(.‬     ‫عا ت)‬          ‫: ‪ .Title‬وا‬      ‫ا‬                          ‫ا‬    ‫7- أآ‬
  ‫(.‬    ‫عا ت)‬         ‫: ‪ .First Name‬وا‬           ‫ا‬                          ‫ا‬    ‫8- أآ‬
     ‫(.‬    ‫عا ت)‬          ‫: ‪ .Surname‬وا‬        ‫ا ا‬                          ‫ا‬    ‫9- أآ‬
‫ت‬    ‫عا‬      ‫: ‪ .Phone Number‬وا‬               ‫ا‬    ‫ا‬                           ‫01- أآ‬
                                                                             ‫(.‬      ‫)‬
‫ت‬    ‫ا‬                 ‫أن‬             ‫ه اا ل‬                   ‫: إذا أردت أن‬         ‫*‬
‫ت‬        ‫ة‬              ‫ا‬        ‫نا‬    ‫أن‬   ‫ت. ,,‬             ‫ا وف وا‬                 ‫ا‬
                                                                             ‫:‬       ‫آ‬




‫:‬                ‫ول.‬        ‫ا‬                   ‫ق.‬            ‫زر ا‬           ‫11- ا‬
                                                                       ‫‪.Customers‬‬
                                           ‫53‬
‫ا‬          ‫أول‬      ‫ت‬        ‫ا‬         ‫أد‬      Customers     ‫ا ن‬    ‫*ا‬
                              :   ‫نآ‬        ‫أن‬    .        Customer ID




                                          .     Access‫ا ـ‬     ‫*أ‬
                                      .Visual Basic        ‫21- ا‬
                                        .Standard Exe      ‫31- ا‬
‫ع‬      ‫. و 6 أزرار‬Text ‫ع‬      ‫ص‬     ‫ت‬     9 Form‫ا ـ‬        ‫41- أ‬
  .Line ‫ع‬          ‫ , و‬Label ‫ع‬    ‫ص‬      ‫ت‬     9 ‫ , و‬Command
     ‫ل‬              ‫وا‬    Name‫ا ـ‬     ‫ واآ‬Form‫ا ـ‬         ‫51- ار‬
                                  :   ‫ا رة ا‬       ‫ آ‬Properties


   cmdNext                                                    txtid
cmaPrevious                                                  txtTitle
   cmdFirst
                                                             txtFirstName
     cmdLast                                                 txtSurname
    cmdDelete                                                txtPhone
                                                             txtTitle1
     cmdAdd
                                                             txtFirstName1
                                                             txtSurname1
                                                             txtPhone1


                .References      ‫ا‬‫ا‬   ‫ ا‬Project                    ‫61- ا‬
                                :         ‫وا‬    ‫ءا‬             ‫71- د ا‬
    Microsoft DAO 3.6 Object Library.
    Microsoft ActiveX Data Objects 2.1 Library.
                    .Code   ‫ا‬       ‫ا‬   ‫ ا‬View                      ‫81- ا‬
                     :             (‫)ا د‬      ‫ا‬                    ‫91- أآ‬
Option Explicit
Dim AConnection As New ADODB.Connection
Dim ARecordset As New ADODB.Recordset

Private Sub cmdAdd_Click()
On Error Resume Next
                                        36
If txtTitle1.Text = "" Then
MsgBox "‫أد ا ا ب‬            ", vbOKOnly, "‫إد ل ا ت‬        "
Exit Sub
Else:
If txtFirstName1.Text = "" Then
MsgBox "‫ع ا ب‬           ‫أد‬    ", vbOKOnly, "‫إد ل ا ت‬      "
Exit Sub
Else:
If txtSurname1.Text = "" Then
MsgBox "‫ا ب‬              ‫أد ا‬      ", vbOKOnly, "‫إد ل ا ت‬     "

Exit Sub
Else:
If txtPhone1.Text = "" Then
MsgBox "‫ا ب‬         ‫أد و‬    ", vbOKOnly, "‫إد ل ا ت‬       "
Exit Sub
End If
End If
End If
End If
ARecordset.AddNew
ARecordset.Fields("Title") = txtTitle1.Text & " "
ARecordset.Fields("First Name") = txtFirstName1.Text & " "
ARecordset.Fields("Surname") = txtSurname1.Text & " "
ARecordset.Fields("Phone Number") = txtPhone1.Text & " "
txtTitle1.Text = ""
txtFirstName1.Text = ""
txtSurname1.Text = ""
txtPhone1.Text = ""
ARecordset.MoveLast
GetFields
End Sub

Private Sub cmdDelete_Click()
On Error Resume Next
ARecordset.Delete adAffectCurrent
ARecordset.MoveFirst
GetFields
End Sub

Private Sub cmdFirst_Click()
On Error Resume Next
ARecordset.MoveFirst
GetFields
End Sub

Private Sub cmdLast_Click()
On Error Resume Next
ARecordset.MoveLast
GetFields
End Sub

Private Sub cmdNext_Click()
On Error Resume Next

                                             37
ARecordset.MoveNext
GetFields
End Sub

Private Sub cmdPrevious_Click()
On Error Resume Next
ARecordset.MovePrevious
GetFields
End Sub

Private Sub Form_Load()

On Error GoTo ErrorHandler
AConnection.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data
source=Database.mdb;"
AConnection.CursorLocation = adUseClient
AConnection.Open
ARecordset.Open "Select * from Customers", AConnection, adOpenDynamic, adLockOptimistic
If AConnection.State = 1 Then
GetFields
End If
Exit Sub
ErrorHandler:
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description & vbCrLf & vbCrLf & "‫ا ن‬         ‫ ,"ا‬vbOKOnly, "Error!"
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
AConnection.Close
Set AConnection = Nothing
End Sub

Private Sub GetFields()
txtID.Text = ARecordset(0)
txtTitle.Text = ARecordset(1)
txtFirstName.Text = ARecordset(2)
txtSurname.Text = ARecordset(3)
txtPhone.Text = ARecordset(4)
End Sub
                                                     . ‫أزرار‬                       ‫ا‬              .F5           ‫02- ا‬

***        ‫و‬           ‫و‬            ‫و‬                              ‫ا و‬              ً
                                                                                 ‫ا. و‬       ‫أو و‬                ‫***وا‬




                                                           38
 ‫ت ا ه ة**‬       ‫ت وا‬          ‫ا‬          ‫ه‬     ‫**أ‬

‫وا‬    ‫ا‬      ‫ا‬   ‫ه‬        ‫أآ‬       ‫ا‬        ‫ي ا رئ : إذا ر‬      ‫*‬
                           ‫:‬       ‫ا ا‬   ‫وا‬     ‫ا‬        ‫دة‬     ‫ا‬

              ‫6 12 م.‬       ‫ال‬                         ‫• آ ب:‬
      ‫6 ‪.Visual Basic‬‬            ‫ا‬                    ‫• آ ب:ا‬
           ‫6.‬      ‫ال‬          ‫ا‬                       ‫• آ ب:‬
                  ‫: ‪.www.vbzoom.com‬‬                    ‫ا‬    ‫•‬
                ‫: ‪.www.a1vbcode.com‬‬                    ‫ا‬    ‫•‬




                     ‫أ‬

‫ﺟﻤﻴﻊ ﺍﻟﺤﻘﻮﻕ ﻣﺤﻔﻮﻇﺔ‬

          ‫7002م-8241هـــ‬




                         ‫93‬

				
DOCUMENT INFO
Shared By:
Stats:
views:9
posted:1/29/2013
language:
pages:39
Description: visual basic 6 basics in Arabic