tron visual basic nerden çıktı dostum eskiden uraşıyodum birazda özellikle yüklü database olaylarına girince program kendinen geçiyo. şöle 3000 kayıtlı bir okul otomasyonu yapmnaya giriştik e tabiki access ile program LÖNK diye göçtü. zaten visual basic vb scriptten doğma bir ufak çaplı uygulama aracı. oysaki delphi oracle interbase paradox gibi ciddi db leri çok güzel destek veriyor hem local hem global anlamda çok güzel veritabanı çalıştırıyor. bizim okul otomasyonunu delphi ile yaptık daha sonradan. ve şuan bile paradox ile birlikte izmir atatürk anadolu teknşk lsiesinde ortalama 7500 öğrencinin kayıtları tıkır tıkır tutuluyor yane n diyeyim. vb ye oyuncak desem kızar şimdi komşu bölüm

bunların ne işe yaradıgını da solermısınız...?

// Alt+F4 tuş kombinasyonuyla programın kapanmaması için //Formun OnCreate olayına; KeyPreview := true; //Formun OnKeyDown olayına; if and (Key = VK_F4)) then Key := 0; // Bir string'in başındaki ve sonundaki boşlukları atmak için Trim TrimLeft //stringin sadece başındaki boşlukları atmak için TrimRight //stringin sadece sonundaki boşlukları atmak için // Listbox'a, Memo'ya ve Combobox'a bir seferde birden çok eleman eklemek Listbox1. items. SetText('Ali'

Çok Saol Logic...

Alt+F4 tuş kombinasyonuyla programın kapanmaması için Formun KeyPreview özelliğini True yapın, daha sonra formun OnKeyDown olayına aşağıdaki kodu yazın. if and (Key = VK_F4)) then Key := 0; Bir string'in başındaki ve sonundaki boşlukları atmak için Trim TrimLeft //stringin sadece başındaki boşlukları atmak için TrimRight //stringin sadece sonundaki boşlukları atmak için Listbox'a, Memo'ya ve Combobox'a bir seferde birden çok eleman eklemek Listbox1. items. SetText('Ali'

then Close; end; Internetten dosya indirme uses kısmına ShellApi ve UrlMon unitlerini ekleyin. function DownLoadInternetFile : Boolean; begin try Result := URLDownloadToFile(nil, PChar , PChar ,0, nil) = 0 except Result := False; end; end; procedure TForm1. Button1Click ; var SourceString, DestinationString: string; begin SourceString := 'http://www.tcmb.gov.tr/kurlar/today.html'; DestinationString := 'c:\bugun.html'; if DownLoadInternetFile then ShellExecute(Application. Handle, PChar , PChar , PChar , nil, SW_NORMAL) else MessageDlg('Dosya indirilemedi!', mtError, , 0); end; Environment Variable'ları bulma Environment variable bilgisayardan bilgisayara değişen bazı klasör ve değişkenlere verilen isim. Mesela Belgelerim klasörü gibi. Bu klasörü bir bilgisayarda c:\Belgelerim iken diğerinde c:\Mustafa\Belgelerim olabilir. Bunların tam listesini komut satırından SET komutunu vererek öğrenebilirsiniz. Bu değişkenlerden bazıları : Windows klasörü, Bilgisayar ismi, Domain ismi, Kullanıcı ismi, işlemci bilgileri... ShowMessage(GetEnvironmentVariable ; Satır ekledikçe RichEdit aşağı doğru kaysın RichEdit1. Lines. Add ; RichEdit1. Perform(EM_SCROLL, SB_LINEDOWN, 0); Integer'dan binary string'e çevirme function IntToBinStr : string; var i: integer; begin for i := 0 to 31 do Result := IntToStr and 1) + Result; end; Kullanılan fare'nin ortasında döndürme tekerleği var mı? Bunu öğrenmek için mouse global nesnesini kullanabilirsiniz. if Mouse. WheelPresent then ShowMessage ; Delphi'nin çalışıp, çalışmadığını test etme Bu daha çok shareware tarzı componentlerde çok kullanılıyor. Delphi açıkken component çalışıyor, ancak kapanınca exe dosyadan çalışmıyor. Kullanıcı componenti rahatça deniyor, ama dağıtamıyor. Aşağıdaki kodla Delphi'nin çalışıp, çalışmadığını anlayabilirsiniz : if FindWindow <> 0 then ShowMessage ; Radio Grup'taki bir öğeyi kullanılamaz yapma TRadioButton(RadioGroup1. Controls ). Enabled := False; Programınızı Windows açılışında otomatik olarak çalışacak şekilde ayarlama uses kısmına Registry unitini ekleyin. procedure TForm1. Button1Click ; var reg: TRegistry; begin reg := TRegistry. Create; reg. RootKey := HKEY_LOCAL_MACHINE; reg. LazyWrite := false; reg. OpenKey ; reg. WriteString ; reg. CloseKey; reg. free; end; Listbox'a aralıklı öğeler ekleyin Listbox'ın TabWidth özelliğini 100 olarak girin. Bu aradaki boşluğu belirtir. Daha Sonra eklemek istediğiniz öğeler arasına ^I koyarak öğeleri ekleyin. Listbox1. Items. Add ; HTML Help yardım dosyasını Delphi ile kullanma Delphi içerisinde herhangi bir HTML Help bileşeni gelmiyor ancak, EHS isimli bedava bileşen sayesinde HTML Help dosyalarını Delphi ile kullanabilirsiniz. Bileşeni sitesinden indirebilirsiniz : www.ec-software.com StringGrid'in her zaman ilk hücresi seçili oluyor, bunu istemiyorum Aşağıdaki kodu projenize eklerseniz, stringGrid üzerinde seçili alan gözükmeyecektir. procedure TForm1. FormCreate ; var grRect: TGridRect; begin grRect. Left := -1; grRect. Top := -1; grRect. Right := -1; grRect. Bottom := -1; StringGrid1. Selection := grRect; end;

Çalışma anında StringGrid oluşturamıyorum TWinControl sınıfından bileşenleri runtime oluştururken, mutlaka parent vermelisiniz. Hata büyük ihtimal bundan kaynaklanıyor. Örnek kod : procedure TForm1. Button1Click ; var TmpStrGrid : TStringGrid; begin TmpStrGrid := TStringGrid. Create ; TmpStrGrid. Parent := Form1; TmpStrGrid. Left := 30; TmpStrGrid. Top := 30; end; Edit'te yazarken binlik ayıracının gözükmesini istiyorum Bu iş için bedava olan şu iki bileşeni kullanabilirsiniz : birincisi Rx Library/JVCL içindeki bir bileşen , ikincisi TAdvEdit . Animated gif kullanma Bu iş için Rx Library / JVCL içindeki TRxGifAnimator isimli bileşeni kullanabilirsiniz. Bu paket bedava dağıtılmaktadır, www.delphi-jedi.org Formun başlık çubuğunu gizleme Formun OnCreate olayına aşağıdaki kodu yazın : procedure TForm1. FormCreate ; begin SetWindowLong( Handle, GWL_STYLE, GetWindowLong and not WS_CAPTION ); ClientHeight := Height; end; Başka bir uygulamaya karakter gönderme aşağıdaki örnek notepad uygulamasına A karakterini gönderir. procedure TForm1. Button1Click ; var g, d:integer; begin g:=FindWindow ; d:=ChildWindowFromPoint(g, point(50,50)); SendMessage(d, WM_CHAR, Ord ,0); end; Formları ve Nesneleri Taşımak Formları başlık çubuğundan tutmadan taşımak için veya form üzerindeki herhangi bir nesneyi taşımak için, OnMouseDown olayına aşağıdaki kodu yazın. procedure TForm1. Panel1MouseDown ; const SC_DragMove = $F012; begin ReleaseCapture; Form1. Perform(WM_SysCommand, SC_DragMove, 0); end; F1, F2, F3 gibi Fonksiyon Kısayol Tuşlarını Kullanmak Formun KeyPreview özelliğini True yapın ve OnKeyDown olayına aşağıdaki kodu yazın : if Key = VK_F2 then begin end; Image'deki Resmi Boşaltma image1. picture. bitmap := nil; Bir Formu Runtime'da Oluşturup, Yok Etmek Project menüsünden Options komutunu verin ve formu Avaible Forms kısmına taşıyın. Daha sonra aşağıdaki kodla formu gerektiği zaman oluşturup kullanabilir ve işi bitince yok edebilirsiniz. Böylece form boş yere hafızada yer işgal etmemiş olur.try Form2 := TForm2. Create ; Form2. ShowModal; finally Form2. Free; end; WebBrowser'da Bir Kelimeyi Bulma Aşağıdaki fonksiyon istediğiniz kelimeyi webbrowser'da bulup aydınlatır. private procedure SearchAndHighlightText ; procedure TForm1. SearchAndHighlightText ; var i: Integer; begin for i := 0 to WebBrowser1. OleObject. Document. All. Length - 1 do begin if Pos(aText, WebBrowser1. OleObject. Document. All. Item . InnerText) <> 0 then begin WebBrowser1. OleObject. Document. All. Item . Style. Color := '#FFFF00'; WebBrowser1. OleObject. Document. All. Item . ScrollIntoView ; end; end; end; procedure TForm1. Button1Click ; begin SearchAndHighlightText ; end; Internet Bağlantısını Kontrol Etmek Bunun için bir kaç yöntem var : 1. www.google.com gibi bir siteye ping atıp atamadığını test edebilirsiniz. 2. TCP bileşenini kullanarak bu bileşenin LocalIP özelliğini kontrol edebilirsiniz. Eğer 0.0.0.0 ise internete bağlı değildir. if TCP1. LocalIp = '0.0.0.0' then ShowMessage ; 3. Aşağıdaki Kod : procedure TForm1. Button1Click ; function FuncAvail : boolean; var _lib: tHandle; begin Result := false; if LoadLibrary(PChar = 0 then exit; _lib := GetModuleHandle(PChar ; if _lib <> 0 then begin _p := GetProcAddress(_lib, PChar ; if _p <> NIL then Result := true; end; end; var InetIsOffline : function : BOOL; stdcall; begin if FuncAvail then if InetIsOffLine(0) = true then ShowMessage else ShowMessage ; Form Başlık Çubuğundan Taşınamasın Formun OnCreate olayına aşağıdaki kodu yazın : procedure TForm1. FormCreate ; var hMenuHandle : HMENU; begin hMenuHandle := GetSystemMenu(Form1. Handle, FALSE); //Get the handle of the Form if (hMenuHandle <> 0) then DeleteMenu ; //disable moving end; Kısayol Oluşturmak Bedava olarak dağıtılan TurboPower ShellShock içindeki Shortcut bileşeni ile kolayca kısayol oluşturabilirsiniz. Access Violation Hatası Bu hata oluşturulmayan/olmayan bir nesneye ulaşmaya çalıştığınzda meydana gelir. Mesela henüz oluşturulmamış bir formu göstermek istediğinizde. Genelde karşılaşılan durumlardan biri de DataModule kullananların, datamodule henüz oluşturulmadan burdaki nesneleri kullanmak istemeleridir. Eğer datamodule kullanıyorsanız, Project menüsünden Options komutunu verin. Forms sekmesinde, Auto-create forms kısmında datamodule'ü ilk sıraya taşıyın. Jpeg'i bmp'ye çevirme procedure TForm1. ConvertJpgToBitmap ; var bmp: TBitmap; dir: String; begin dir := GetWindowsDir; bmp := TBitmap. Create; try Jpeg := TJpegImage. Create; Jpeg. LoadFromFile ; with bmp do begin Width := Jpeg. Width; Height := Jpeg. Height; Canvas. Draw(0, 0, Jpeg); SaveToFile ; Free; end; finally Jpeg. Free; end; end;

bilginipaylaştın. Sanada gelir.. Teşekkürler

Ehhe Sen ne zamandan beri visual basic le uğraşmaya başladın LOGİC. Gerçi delphinin yanında oyuncak gibi duruyor zannedersem.. Paylaşımın için sağol diyecek laf yok. Devam et bu topiğe daha sıkı kodlar varmı ağ ve net ile ilgili özellikle.

Programım hangi klasörde çalışıyor procedure TForm1. Button1Click ; var path: string; begin Path := ExtractFilePath(ParamStr(0)); Showmessage ; end; II. Yol : Mustafa Kılınç tarafından gönderilmiştir. procedure TForm1. Button1Click ; begin MessageDlg('Programınız ' +ExtractFilePath + 'klasöründe çalışıyor. ', mtInformation, , 0 ); end; Bir dosyayı geri dönüşüm kutusuna atmak uses kısmına shellapi unitini ekleyin. procedure TForm1. Button1Click ; var T : TSHFileOpStruct; begin FillChar(T, SizeOf ,

dostum yazıyor zaten bak herbir kodun üstünde ne işe yaradığı yazıyor.

kimse bişey dememiş eline sağlk dostum

Rastgele Sayı Üretme RandomRange fonksiyonunu kullanabilirsiniz. Bu fonksiyon, verdiğiniz aralıkta rastgele sayı üretir. Math unitini uses kısmına ekleyin. RandomRange(0,4) // 0 ile 4 arasında rastgele sayı üretir. Dosya Kopyalama CopyFile fonksiyonu ile dosya kopyalayabilirsiniz. Sondaki parametre False ise aynı isimde dosya varsa üzerine yazar, True ise yazmaz. CopyFile('c:\1. txt', 'c:\Mustafa\1. txt', False); Çalışan Programların Listesini Alma function EnumWindowsProc : Boolean; stdcall; var ParentWnd: HWND; ExStyle: DWORD; Caption: array of Char; begin if IsWindowVisible then begin ParentWnd:=GetWindowLong ; ExStyle:=GetWindowLong ; if ((ParentWnd=0) or and ((ExStyle and WS_EX_TOOLWINDOW=0) or (ExStyle and WS_EX_APPWINDOW<>0)) and (GetWindowText(Wnd, Caption, SizeOf >0) then List. AddObject(Caption, Pointer ; end; Result:=True; end; procedure TForm1. Button1Click ; begin EnumWindows(@EnumWindowsProc, Integer(ListBox1. Items)); end; Fareyi Kod ile Tıklatma Bazı işlemleri yaparken fareyi bir konuma taşıyıp, otomatik tıklama yapmasını isteyebilirsiniz. Bu durumda SetCursorPos ile kursörü istediğiniz konuma taşıyıp, aşağıdaki kodu yazın : mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); Harddisk'in Fabrika Seri Numarasını Bulma Ide Diskler için : ide_sn. zip (4 KB), SCSI Diskler için : scsi_sn. zip (4 KB). NOT : Windows 9x'te SMARTVSD. VXD isimli dosyayı "windows\system" klasöründen "windows\system\iosubsys" klasörüne kopyalayıp restart etmek gerekiyor. TImage'deki Resmi Başka Bir TImage'a Atamak ArkaPlan. Picture. Bitmap. Assign(image1. picture. bitmap); //image1'deki resim ArkaPlan'a atanır. StringGrid'te Enter Tuşuna Basınca Yan Hücreye Geçsin StringGrid'in OnKeyDown olayına aşağıdaki kodu yazın : if and (StringGrid1. Col < StringGrid1. ColCount-1) then StringGrid1. Col:=StringGrid1. Col+1;