bilgisayar adı Dim EnvString, a EnvString = Environ(6) pcadi = InStr(1, EnvString, "=") Print Right(EnvString, pcadi + 2) dizindeki dosya ve klasörleri listele MyName = Dir("c:\windows\system32\", vbDirectory) text1. multiline=true text1. scrollbars=2 Do While MyName <> "" MyName = Dir 'Bir sonraki dizin okunur. Text1 = Text1 & Space(5) & MyName Loop Array örneği Dim MyWeek, MyDay MyWeek = Array MyDay = MyWeek(2) MsgBox MyDay MyDay = MyWeek(4) MsgBox MyDay tarih ve saati al degisken=format & "_" format commanddialog flags bilgileri Dosya aç veya Kaydet &H200, cdlOFNAllowMultiselect : Bu degerin Yeni Adla Kaydet diyalog kutusunda bir etkisi yoktur. Aç diyalog kutusunda ise birden çok dosyanin seçilebilmesini saglar. Bu seçme islemi Shift veya Ctrl tus bilesimleriyle yapilir. Bu durumda FileTitle parametresi bos döner, FileName parametresinde ise, dosya isimleri arasinda da bosluk olarak döner. CommonDialog1. FileName = "SürücüIsmiizinIsmi\ Birinci Dosya Ikinci Dosya Üçüncü Dosya..." CommonDialog1. FileName = "C:\WINDSOWS\ win.com msd. exe" seklinde olacaktir. Eger bir tane dosya seçilmisse dizin ismi ile dosya ismi arasinda bosluk bunmaz. Windows 95/98' de dosya isminde de bosluk olabilecegi için Flags parametresine bu deger verildiginde uzun dosya isimlerinin seçilebilecegi dosya penceresi yerine 8 + 3 dosya isimlerinin seçilebilecegi asagidaki dosya penceresi açilacaktir. &H2000, cdlOFNCreatePrompt: Bu degerin de Yeni Adla Kaydet diyalog kutusunda bir etkisi yoktur. Aç diyalog kutusunda yazilan dosya isminin diskte olmamasi durumunda Windows' un söyle bir mesaj kutusu çikarmasina sebep olur. Burada "Hayir" seçilmesi halinde diyalog kutusu kapanmayacak ve yeni bir dosya seçmenizi saglayacaktir. "evet" seçilmesi halinde ise gerçekte diskte olmayan dosya ismi geri gönderilir. &H1000, cdlOFNExplorer: Bu degerin de Yeni Adla Kaydet diyalog kutusunda bir etkisi yoktur. Aç diyalog kutusunda yazilan dosya isminin diskte olmamasi durumunda Windows uyarı mesajı verir &H4, cdlOFNHideReadOnly: Diyalog kutusundaki Checkbox' inin görüntülenmemesini saglar. &H8000, cdlOFNNoReadOnlyReturn: Diyalog kutusunda Read Only dosya seçilmesini önler. Böyle bir dosya seçilmesi durumunda Windows uyarı mesajı vermesini sağlar. &H2, cdlOFNOverwritePrompt: Bu degerin Aç diyalog kutusunda bir degeri yoktur. Yeni Adla Kaydet diyalog kutusunda yazilan dosya ismiyle ayni isimli bir dosyanin diskte olmasi durumunda Windows uyarı mesajı vermesini sağlar. &H800, cdlOFNPathMustExist: Girilen dosya isminin yolu dogru degilse Windows uyarı mesajı vermesini sağlar. &H1, cdlOFNReadOnly: Diyalog penceresi açilirken Checkbox' inini isaretlenmis olmasini saglar. Ayni zamanda kullanicinin bu seçenegi isaretleyip isaretlemedigi de Flags özelliginin bu degeri ile AND islemine tabi tutularak anlasilir. &H4000, cdlOFNShareAware: Normalde diyalog kutulari, bir baska uygulama tarafindan açik tutulan bir dosyanin seçilmesi durumunda bir hata mesaji ile kullaniciyi uyarir. Eger flags özelligine bu deger verilirse diger programlar tarafindan açik tutulan dosyalarin da seçilebilmesini saglar. &H10, cdlOFNHelpButton : Diyalog kutusunda Yardim komut dügmesinin görüntülenmesini saglar. Yardim dügmesinin etkili olmasi için uygulamanin Help dosyasi ve HelpConTextID özelligi ile ilgili yardim konusunun belirlenmis olmasi gerekir. &H8, cdlOFNNoChangeDir: Normalde diyalog kutulari sonraki seferlerde açildiginda en son kalinan dizindeki dosyalari gösterir. Eger her seferinde ayni dizini göstermek istiyorsaniz Flags parametresine bu degeri verebilirsiniz. Font diyalog Penceresi Flags: Açilacak diyalog penceresinin bazi özelliklerini belirleyen bir deger alir. Alacagi degerler ve anlamlari asagida verilmistir. Bu degerler OR islemine tabi tutularak birkaç özellik birden aktif hale getirilebilir. &H100, cdlCFEffects : Diyalog penceresinde etkiler ve renk kutularinin da görüntülenmesini saglar. &H1, cdlCFScreenFonts : Ekran fontlarinin listede görülmesini saglar. &H2, cdlCFPrinterFonts : Yazici fontlarinin da listede görülmesini saglar. &H3, cdlCFBoth : Hem ekran hem de yazici fontlarinin listede görülmesini saglar. &H20000, cdlCFScalableOnly : Yalniz ölçeklenebilir fontlarin listede görülmesini saglar. . Bu fontlarin özelligi büyütülüp/küçültüldügünde sekillerinin bozulmamasidir. &H40000, cdlCFTTOnly : Yalniz True type fontlarin listede görülmesini saglar. &H8000, cdlCFWYSIWYG : Yalniz hem ekran hem de yazicida kullanilabilen fontlarin gösterilmesini saglar. Bu flags degeri özellikle yazicidan alinacak çiktiyla ekranda görülen yazinin ayni kalitede olmasi istendigi durumlarda kullanilmalidir. Diger durumda da ekranda görülen yazi yazicidan aynen çikar ancak ekran ile yazicinin çözünürlükleri ayni olmadigi için yazim kalitesi düsük olacaktir. Bu degerin etkili olmasi için &H1, &H2, ve &H20000 degerlerinin de verilmis olmasi gerekir. Yani flags özelliginin &H28003 olmasi gerekir. &H400, cdlCFANSIOnly : Symbol fontlari gibi yazi içermeyen fontlarin listede görülmemesini saglar. &H800, cdlCFNoVectorFonts : Vektör fontlarinin seçilmemesini saglar. &H4000, cdlCFFixedPitchOnly : Yalniz "Fixed Pitched" fontlarin görüntülenmesini saglar. Windowsta kullanilan fontlardan çogunlugunun harf genislikleri sabit degildir. "M" harfi "I" harfinden daha genis bir alan kaplayacaktir. Fontlarin diger bir kisminda ise bu genislik her harf için sabittir . Font genisliginin sabit olmasi çirkin bir görüntü olustururken özellikle tablolarda kullanilmasi verilerin ayni hizaya gelmelerini saglayacaktir. &H10000, cdlCFForceFontExist : Kullanicinin listede olmayan bir font ismi yazmasi durumunda Windows' un asagidaki mesaji görüntülemesini saglar ve geçerli bir font ismi seçilmesi için kontrolü tekrar diyalog kutusuna birakir. &H2000, cdlCFLimitSize : Diyalog kontrolünün Max ve Min özellikleriyle belirlenen sinirlar haricinde bir font büyüklügü seçilmesine izin vermez. Renk diyalog penceresi Windows tarafindan saglanan standart renk diyalog kurusunun kullanilmasini saglayan bir kontroldür. Bu kontrolle sistem renklerinin veya kullanicinin tanimlayacagi özel renklerin kullanilmasi mümkündür. CommonDialog kontrolünün Action özelligine üç vererek veya ShowColor metodunu kullanarak renk diyalog penceresi aktif hale getirilir. CommonDialog1. Action = 3 veya CommonDialog1. ShowColor &H2, cdlCCIFullOpen : Diyalog penceresinin normalde sadece renk kismi açilir. Kullanicinin Özel Renk Tanimla komut dügmesini tiklamasiyla da pencerenin diger yarisi açilir. Eger pencerenin tamaminin program tarafindan açilmasini istiyorsaniz Flags özelliginin bu degerini kullanmalisiniz. &H4, cdlCCPreventFullOpen : Diyalog penceresinde Özel Renk tanimla komut dügmesinin pasif yapilmasini ve kullanici tarafindan seçilememesini saglar. Yazdirma Diyalog Penceresi CommonDialog1. Action = 5 veya CommonDialog1. ShowPrinter &H0, cdlPDAIIPages : Yazdir diyalog penceresinde Tümü seçeneginin seçili olmasini saglar veya tümü seçeneginin seçili olup olmadigi bu degerle ögrenilir. &H1, cdlPDSelection : Yazdir diyalog penceresinde Seçili Kisim seçeneginin seçili oldugunu gösterir. &H2, cdlPDPageNums : Yazdir diyalog penceresinde Sayfalar seçeneginin seçili oldugunu gösterir. Hangi sayfalarin girildigi ise Max ve Min özellikleri ile ögrenilir. &H20, cdlPDPrintToFile : Yazdir diyalog penceresinde Dosyaya Yazdir seçeneginin seçili oldugunu gösterir. &H80000, cdlPDDisablePrintToFile : Yazdir diyalog penceresinde Dosyaya Yazdir seçeneginin pasif olmasini saglar. &H100000, cdlPDHidePrintToFile : Yazdir diyalog penceresinde Dosyaya Yazdir seçeneginin görüntülenmemesini saglar. &H8, cdlPDNopageNums : Yazdir diyalog penceresinde Sayfalar seçeneginin, Ilk ve Son text kutularinin pasif olmasini saglar. &H4, cdlPDNoSelection : Yazdir diyalog penceresinde Seçili Kisim seçeneginin pasif olmasini saglar. &H40, cdlPDPrintSetup : Yazdir diyalog penceresi yerine Yazici Ayarlari diyalog penceresinin görüntülenmesini saglar. Bu pencere araciligi ile bir ayar yapildiktan sonra bu ayarlarin etkili olabilmesi için Printer. EndDoc komutu kullanilmalidir. CommonDialog1. Flags = &H40 CommonDialog1. Action = 5 Printer. EndDoc Eski Metin