Saol cidden işe yarar kodlar var... You must log in or register to reply here. Alakalı Olabilecek Konular I Vb6 Msflexgrİd nesnesine Txt dosyasını okutma Hk. ikayserili 11 Şubat 2021 Yanıt 0 Gösterim 2K 11 Şubat 2021 ikayserili I Forum Programlama Visual Basic Bize Ulaşın Forum Kuralları Gizlilik Sözleşmesi Yardım Ana Sayfa RSS bafra oto ekspertiz, Tiktokbegeni.com, erkek cüzdan, eskişehir haber, çelik ranza, hasta yatağı kiralama, bonus veren siteler, ankara oto ekspertiz, istanbul oto ekspertiz, eskişehir oto ekspertiz, çorum oto ekspertiz, geobonus. org, deneme bonusu, bonusportali.com, vbet giriş, Pokerklas, Caddebet, megapari giriş, meritking giriş, meritking, kingroyal giriş, bahis siteleri, betwinner, rokubet giriş, deneme bonusu veren siteler, takipçi satın al, deneme bonusu veren siteler, betnano giriş, elektronik sigara, deneme bonusu veren siteler, replika saat, melbet giriş, smok, deneme bonusu, bahis forum, melbet, izmit oto ekspertiz, poppers turkiye, eskişehir oto ekspertiz, dalyan otel, hack forum, melbet, sohbet numaraları Wardom. Org Bilginin Adresi. 1998'den beri Wardom yayında! Wardom Türkiye'nin en eski forum sitelerinden biri olarak günümüz web sitelerine sponsor linkler yayınlanmaktadır. ataşehir escort maltepe escort pendik escort gaziantep rus escort xxx videos erotik film izle istanbul escort ankara escort istanbul escort gaziantep escort gaziantep escort Paylaşım sitemizde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetleriniz için bize ulaşabilirsiniz. Tüm hakları saklıdır 2015 Wardom. Org bilginin adresi. Forum ve bilgisayar güvenliği sitesi. var sc_project=2030864;var sc_invisible=1;var sc_security="c6df530c"; Üst <div class="tooltip-content-inner"> <div class="reactTooltip"> <a href="#" class="reaction reaction--1" data-reaction-id="1"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Like" title="Like" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--2" data-reaction-id="2"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Love" title="Love" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--3" data-reaction-id="3"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Haha" title="Haha" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--4" data-reaction-id="4"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Wow" title="Wow" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--5" data-reaction-id="5"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Sad" title="Sad" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--6" data-reaction-id="6"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Angry" title="Angry" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> </div> </div> { "@context": "https://schema.org", "@type": "DiscussionForumPosting", "@id": "https:\/\/www.wardom.org\/threads\/karisik-kodlar-d.77878\/", "headline": "Karışık Kodlar D ", "articleBody": "Listbox'a degisik renklerde item nasyl eklenir?\r\n\r\nMSFlexGrid control kullanyn\r\n\r\nForm close butonu nasyl çalistirilir?\r\ndim bClose as Boolean\r\nForm'un QueryUnload event'ine ekle:\r\nIf bClose = false then cancel = true\r\n\r\nBir combo'nun içini diger bir combo'dan aldiklarinizla nasyl doldurursunuz?\r\nSub comboA_click \r\ncomboB. text = comboA. text\r\nEnd sub\r\n\r\nEger ComboA'daki seçili degerlerin ComboB'ye aktarilmasini istiyorsaniz\r\nSub comboA_click \r\ncomboB. AddItem comboA. text\r\nend sub\r\n\r\n\r\nBirden fazla sütun içeren combolar nasyl yapylyr?\r\nProjenize Microsoft Forms 2.0 control ekleyin, oradaki\r\ncombo multi-column destekler.\r\n\r\nCombo1. Clear\r\nCombo1. ColumnCount = 2\r\nCombo1. ListWidth = \"6 cm\" 'Total genislik\r\nCombo1. ColumnWidths = \"2 cm;4 cm\" 'sütun genisligi\r\nCombo1. AddItem \"Ivir zivir\"\r\nCombo1. List(0, 1) = \"Ivir zivir\"\r\n\r\nDikine uzanan label nasyl yapylyr?\r\nPrivate Sub Form_Activate \r\nDim s As String\r\nLabel1. Caption = \"Visual Basic 2000\"\r\nFor i = 1 To Len(Label1)\r\ns = s & Mid$(Label1, i, 1) & vbCrLf \r\nNext\r\nLabel1 = s\r\nEnd Sub\r\ndikkat: Label'i dikine çekmelisiniz\r\n\r\nJoker karakterler kullanarak string nasyl aranir?\r\nDim Mystr As String\r\nMystr = \"Hakan\"\r\nIf Mystr Like \"H \" Then\r\nMsgBox \"Bulundu\"\r\nElse\r\nMsgBox \"Bulunamadi\"\r\nEnd If\r\n\r\nHer dile uyumlu tarih nasyl formatlanir?\r\nCommand1. Caption = Format$ \r\n\r\nUyari isareti olan mesaj kutusu nasyl yapylyr? \r\nMsgBox \"Mesaj Buraya!!\", vbCritical, \"Önemli\"\r\n\r\nIçine tab yerlestirebileceginiz text kutulari nasyl yapylyr?\r\nBir form içindeki tüm kontrollerin tabstoplarini False'e esitleyin\r\nText kutulari için kisayol tuslari nasyl belirlenir?\r\nKisayol tusuna sahip bir label hazirlayin ve label'in tabindex'ini textbox'un tabindexinden\r\nbir asagiya esitleyin.\r\n\r\nCommand butondan popup menü nasyl yapylyr?\r\n\r\nÖncelikle menü editör ile bir menü yaratin.\r\nAsagidaki gibi:\r\n\r\nButton Menu \r\n... SubMenu Item 1 (Menu name: mnuSub, Index: 0)\r\n... SubMenu Item 2 (Menu name: mnuSub, Index: 1)\r\n... SubMenu Item 3 (Menu name: mnuSub, Index: 2)\r\n... SubMenu Item 4 (Menu name: mnuSub, Index: 3)\r\n\r\n\r\nve bir tane de command button hazirlayin ve kodu yerlestirin:\r\n\r\nPrivate Sub mnuSub_Click \r\n\r\nCall MsgBox(\"Kliklenen menü: \" & Index + 1, vbExclamation)\r\n\r\nEnd Sub\r\n\r\nPrivate Sub Command1_Click \r\nCall PopupMenu \r\nEnd Sub\r\n\r\nNot: Isterseniz daha güzel etki için \"Call PopupMenu \" çagrisi yerine\r\n\r\nCall PopupMenu(Menu:=mnuBtn, X:=Command1. Left, Y:=Command1. Top + _\r\nCommand1. Height) \r\n\r\nçagrisini yada;\r\n\r\nCall PopupMenu(mnuBtn, vbPopupMenuCenterAlign, Command1. Left + _\r\n(Command1. Width \/ 2), Command1. Top + Command1. Height) \r\n\r\nçagrisini kullanin.\r\n\r\n\r\nText kutusunda olan degisiklik nasyl farkedilir?\r\n\r\n'Amaç kullaniciyi yaptigi degisiklikler konusunda programi kapatmadan uyarmaktir.\r\n\r\nPublic Degisti As Boolean 'Bu degisken textbox'ta herhangi bir degisiklik olup olmadigini tutar.\r\nPrivate Sub Text1_Change \r\nDegisti= True\r\nEnd SubPrivate \r\n\r\nSub Form_Unload \r\nIf Degisti Then \r\nIf Msgbox = vbYes Then \r\n'Buraya kaydetme ile ilgili kodlar gelecek\r\nDegisti = False \r\n' Degisti degerini tekrar False yap ki bir sonraki degisiklikte tekrar çalisabilsin. \r\n'Bunu sadece buradaki If - End If blogu arasina yaz\r\nEnd If \r\nEnd If\r\nEnd Sub\r\n\r\nListbox'a bir text dosyasi içerigi nasyl yüklenir?\r\nPrivate Sub Command1_Click \r\nDim BulunanKelimeler As String \r\nOpen \"C:\\test. txt\" For Input As

ya karmanı verdimde bu biraz ilerlemiş olanlar için galiba.. You must spread some Karma around before giving it to Japon_Hacker again. üzgünüm ama soora vercem... - S@

Gerçektende karışık ama çoğu işime yaradı You must spread some Karma around before giving it to Japon_Hacker again. - Robotic

List1. Clear While Not EOF(1) Input

Windows Control Panel uzantilari VB ile nasyl açilir? Option Explicit Private strPanelAdi As String Private Sub Command1_Click strPanelAdi = File1. filename If strPanelAdi = "" Then MsgBox "Bir. CPL dosyasi seçilmedi." & vbCrLf & _ "Windows Control Panel açiliyor.", vbInformation End If Shell "rundll32. exe shell32. dll, Control_RunDLL " & _ strPanelAdi, vbNormalFocus End Sub Private Sub Form_Load With File1 'Sadece Control Panel uzantili dosyalari göster. Pattern = " . CPL" 'FileListBox yalnizca System yada System32 dizinini hedef alsin: . Filename = "C:\Windows\System" End With End Sub Bellegi bosaltmak için tüm formlar nasyl unload edilir? Public Sub UnloadAllForms Dim Form As Form For Each Form In Forms Unload Form Set Form = Nothing Next Form End Sub Bu prosedürü çalistirmak için en uygun yer ana formun unload event'idir Kontroller nasyl ta?ynabilir? Burada bir picturebox form üzerinde drag&drop ile tasinmaktadir. Option Explicit Public globalX As Integer Public globalY As Integer Private Sub Form_DragDrop Picture1. Move X - globalX, Y - globalY End Sub Private Sub Picture1_MouseDown Picture1. Drag vbBeginDrag globalX = X globalY = Y End Sub Kendi Popup menünüz bir textbox içinde nasyl gösterilir? Bu ipucu ile standart Windows pop up menüsünü bastirir kendi popup menünüzü çalistirirsinz. Private Sub Text1_MouseDown If Button = 2 Then With Text1. Enabled = False PopupMenu . Enabled = True. SetFocus End With End If End Sub Mesaj kutusunun ileri özellikleri nasyl kullanilir? Dim Msg, Style, Title, Help, Ctxt, Cevap, MyString Msg = "Devam edelim mi?" ' Mesaji tanimla Style = vbYesNo + vbCritical + vbDefaultButton2 'Butonlari tanimla Title = "MsgBox Gösterimi" ' Title tanimla Help = "DEMO. HLP" 'Bir help dosyasi bagla Ctxt = 1000 ' Baslik tanimla Cevap = MsgBox 'Masaji göster ve kullanici cevabini bekle If Cevap = vbYes Then ' Kullanici evet'i seçti MsgBox "Kabul ettiniz" ' Karsilik ver Else ' Tersi durumda kullanici hayir'i seçmis demektir MsgBox "Kabul etmediniz" ' Karsilik ver End If Menülerde seperatör nasyl yapylyr? mnu. Caption="-" Listbox'taki tüm elemanlar nasyl seçilir? 'Asagidaki kodu cmdYeniEkle_Click yordamina yaz List1. AddItem Text1. Text ' Yeni bir item ekle 'Asagidaki kodu cmdTumunuSec_Click yordamina yaz For x = 0 To List1. ListCount - 1 List1. Selected = True ' item seç Next x Listview'deki satirlarin kaç tane oldugu nasyl sayilir? lItemCount = lstCount. ListItems. Count Msgbox lItemCount Form konfetti ile nasyl doldurulur? DrawWidth = 5 ' noktaciklarin genisligi Dim x As Long Dim y As Long Dim r As Integer Dim g As Integer Dim b As Integer Randomize Do x = Val Rnd y = Val Rnd bir sonraki noktacigin rengi rastgele seçilir r = 255 Rnd g = 255 Rnd b = 255 Rnd Form1. PSet , RGB Loop Form üzerindeki Picturebox nasyl ortalanir? Picture1. Left = (Form1. Width - Picture1. Width) / 2 Clipboard kullanarak bir Picturebox içerigi resim diger bir picturebox'a nasyl kopyalanir? Command1_Click Clipboard. Clear 'Clipboard'i mutlaka sil Clipboard. SetData Picture1. Picture Command2_Click Picture2. Picture = Clipboard. GetData ' Clipboard içerigini Picture2 içine yapistir. Mouse pointer nasyl saklanir? Bu is için ShowCursor API'si kullanilir. Asagidaki kodu bir module içine yaz: Declare Function ShowCursor Lib "user32" As Long Bu kod mouse imlecini saklar: FareImleci = ShowCursor Bu kod mouse imlecini görünür hale getirir: FareImleci = ShowCursor Programiniz disinda keypress nasyl saptanir? GetAsyncKeyState API'si kullanilir. Asagidaki kodu module içine yazin Declare Function GetAsyncKeyState Lib "user32" As Integer ' Asagidaki constant TAB tusu için. Diger tuslar için ' API Text Viewer'i kullanin Public Const VK_TAB = &H9 'Timer1_Timer içine asagidaki kodu ekleyin If GetAsyncKeyState Then Beep ' TAB'a basilirsa beep End If Yazdirma islemi nasyl iptal edilir? 'Bu örnekte ayrica birden fazla sayfanin nasyl yazilacagi da gösteriliyor Printer. Print "Page 1" Printer. Newpage Printer. Print "Page 2" Printer. KillDoc Resim Nasıl Yazdırılır.. Printer. PaintPicture Picture1. Picture Printer. EndDoc Windows'un Belgeler içerigi nasyl silinir? Bir module asagidaki API deklerasyonunu ekle: Declare Sub SHAddToRecentDocs Lib "shell32. dll" Herhangi bir click içine de asagidaki kodu ekle: SHAddToRecentDocs(2, vbNullString) Windows'un Belgeler içine nasyl ekleme yapylyr? Bir module asagidaki API deklerasyonunu ekle: Declare Sub SHAddToRecentDocs Lib "shell32. dll" Herhangi bir click içine de asagidaki kodu ekle: Dim ekleme as String ekleme="c:\falan dizin\filan dosya. txt" SHAddToRecentDocs(2, ekleme) Alan adina göre bir Recordset içindeki kayitlar nasyl siraya konur? 'Bu kod tüm kayitlari Z-A siraya dizer ' A-Z sirasi isterseniz, DESC yerine ASC kullanin. Dim DB as Database Dim Kayitlar as Recordset Set Kayitlar = DB. OpenRecordset Personel tablosundan tüm kayitlari Adi field degerine göre azalan sekilde siraya dizer Listbox'u Access veritabanina nasyl baglarsiniz? On Error GoTo Hata_Kontrol Dim DB as Database Dim Kayitlar as Recordset Dim X as Long, record_count as Long 'Veritabanini açalim Set DB = OpenDatabase Set Kayitlar = DB. OpenRecordset ' Dikkat ederseniz asagida yapilan islem önce veritabaninin sonuna gitmek, RecordCount degerini ' ögrenmek ve sonra tekrar veritabani basina dönmektir. Veritabani sonuna gitmeden kaç adet kayit ' oldugunu ögrenemezsiniz. Kayitlar. MoveLast X = Kayitlar. RecordCount Kayitlar. MoveFirst ' Listbox içine adlari yerlestirelim ' Ilk kayita geldikten sonra artik sirayla ögrenci adlarini listbox içine alabiliriz Do List1. AddItem Kayitlar! OgrenciAdi Y = Y + 1 Kayitlar. MoveNext Loop Until Y = X ' X = Recordcount, yani son kayit Hata_Kontrol: Select Case Case 3021 ' Kayit yok record_count = 0 'Kayit yoksa degeri 0 a esitleyelim. Exit Sub List1. Refresh End Select Bir form nasyl asagi ve yukari katlanir? Sub FormuYukariKatla ' Formunuzun Scalemode property'sine dikkat edin. Eger degeri pixel ise ' ve siz twip deger kullanirsaniz form sonsuz bir döngü içinde katllanir. ' formunuzun ne kadar katlanmasini istiyorsaniz yukari degerini o kadar yükseltin ' Açilista splash screen olarak kullanilir... Dim NereyeKadar NereyeKadar = frm. Height - yukari If NereyeKadar <= 0 Then Exit Sub If yukari < 0 Then Exit Sub Do frm. Height = frm. Height - 1 DoEvents Loop Until frm. Height <= NereyeKadar End Sub Sub FormuAsagiKatla 'Yine scalemode'a dikkatedin! ' Formun ne kadar asagi katlanmasini istiyorsaniz "asagi " degerini o kadar büyütün Dim NereyeKadar NereyeKadar = frm. Height + yukari If yukari < 0 Then Exit Sub Do frm. Height = frm. Height + 1 DoEvents Loop Until frm. Height >= NereyeKadar End Sub 'Asagidaki sub yordamimiz çagirir Private Sub Command1_Click Call FormuAsagiKatla(Form1, 100) End Sub isEven fonksiyonu nasyl kullanilir? 'Bu fonksiyon tek sayilarda TRUE döndürür Function isEven As Boolean isEven = True If n And 1 Then isEven = False End Function

kardeş eline sağlık isifade edilebilecek malumatlar

End Sub Textbox ve Combobox için Undo fonksiyonu nasyl kullanilir? 'Bir Windows API undo islemi yapar 'asagidaki deklerasyonlari yaz Declare Function SendMessage Lib "User" As Long 'asagidaki degismezleri yaz Global Const WM_USER = &h400 Global Const EM_UNDO = WM_USER + 23 ' Undo Sub 'lara asagidaki kodu yaz UndoResult = SendMessage(myControl. hWnd, EM_UNDO, 0, 0) 'UndoResult = -1 olursa hata var demektir 'UndoResult sadece bir rakamdir ve hiç bir önemi yoktur. Sadece yer tutmasi için yazilir. 'VB'nin buna benzer gariplikleri vardir. Bir amaci varsa da ben bilmiyorum Clipboard'dan text nasyl kopyalanir? 'Textbox'ta texti isaretle ve isaretlenen yeri clipboard'dan kopyaladiginla degistir: txtBox. SelText = Clipboard. GetText 'Yada tüm text'i clipboarddan aldiginla degistir. txtBox. Text = Clipboard. GetText Clipboard'a text nasyl kopyalanir? 'Önce clipboard'u temizle Clipboard. Clear 'Sonra kopyalanacak alani seç ve clipboard'a kopyala Clipboard. SetText txtBox. Text, vbCFText Toolbar'in click olayi nasyl kodlanir? Private Sub Toolbar1_ButtonClick 'button clicklerini saptamak için: Select Case Button. Key Case Is = "Exit" If MsgBox("Çikmak istiyor musunuz?", vbQuestion + vbYesNo + _ vbDefaultButton2, "Programdan çikiyorsunuz!") = vbNo Then Exit Sub Call ExitProgram Case Is = "Repair" Call Repairdb Case Is = "Delete" Call DeleteRoutine Case Is = "Edit" Call EditRoutine Case Is = "New" Call NewRoutine Case Is = "Copy" Call CopyToClipboard Case Is = "Help" Call ShowHelpContents End Select End Sub Dogum gününden ki?inin ya?y nasyl hesaplanyr? 'Text'i Date data türüne çevir Dim Birth as Date Birth = DateValue 'Yasi hesapla Dim Age as Integer Age = Int(DateDiff / 365.25) -

Devam!! Dosya boyutu nasyl ögrenilir? Aslinda dosya boyutu ögrenmek kolaydir. Buradaki ipucu kullanicinyn seçtigi dosyalarin boyutunu çalisma aninda buluyor. Bir form üzerine bir dirlistbox ve bir filelistbox ve bir Label yerlestirin. Kullanici istedigi dizine gidebilir ve dosya seçebilir. Bu program kullanicinin seçtigi dosyalarin boyutunu gösterecek: Private Sub cmdDosyaBoyutunuGoster_Click Dim strDosyaTemp As String Dim strBoyutTemp As String Dim strDizin As String Dim strDosya As String ' Kullanicinin seçtigi dizin ve dosya kutulari araciligiyla degiskenlerimize deger yüklüyoruz: strDizin = lstDizin. Path strDosya = lstDosya. File ' Yukaridan alinan degerlerle ulasilan path degerini geçici dosya degiskenine yükleyip ' o degiskenin dosya boyutunu hesaplatiyoruz.: strDosyaTemp = strDizin & "\" & strDosya strBoyutTemp = FileLen lblDosyaBoyutu. Caption = strDosyaTemp & " adli dosya " & _ Format(strBoyutTemp, "#,#

Listbox'a degisik renklerde item nasyl eklenir? MSFlexGrid control kullanyn Form close butonu nasyl çalistirilir? dim bClose as Boolean Form'un QueryUnload event'ine ekle: If bClose = false then cancel = true Bir combo'nun içini diger bir combo'dan aldiklarinizla nasyl doldurursunuz? Sub comboA_click comboB. text = comboA. text End sub Eger ComboA'daki seçili degerlerin ComboB'ye aktarilmasini istiyorsaniz Sub comboA_click comboB. AddItem comboA. text end sub Birden fazla sütun içeren combolar nasyl yapylyr? Projenize Microsoft Forms 2.0 control ekleyin, oradaki combo multi-column destekler. Combo1. Clear Combo1. ColumnCount = 2 Combo1. ListWidth = "6 cm" 'Total genislik Combo1. ColumnWidths = "2 cm;4 cm" 'sütun genisligi Combo1. AddItem "Ivir zivir" Combo1. List(0, 1) = "Ivir zivir" Dikine uzanan label nasyl yapylyr? Private Sub Form_Activate Dim s As String Label1. Caption = "Visual Basic 2000" For i = 1 To Len(Label1) s = s & Mid$(Label1, i, 1) & vbCrLf Next Label1 = s End Sub dikkat: Label'i dikine çekmelisiniz Joker karakterler kullanarak string nasyl aranir? Dim Mystr As String Mystr = "Hakan" If Mystr Like "H " Then MsgBox "Bulundu" Else MsgBox "Bulunamadi" End If Her dile uyumlu tarih nasyl formatlanir? Command1. Caption = Format$ Uyari isareti olan mesaj kutusu nasyl yapylyr? MsgBox "Mesaj Buraya!!", vbCritical, "Önemli" Içine tab yerlestirebileceginiz text kutulari nasyl yapylyr? Bir form içindeki tüm kontrollerin tabstoplarini False'e esitleyin Text kutulari için kisayol tuslari nasyl belirlenir? Kisayol tusuna sahip bir label hazirlayin ve label'in tabindex'ini textbox'un tabindexinden bir asagiya esitleyin. Command butondan popup menü nasyl yapylyr? Öncelikle menü editör ile bir menü yaratin. Asagidaki gibi: Button Menu ... SubMenu Item 1 (Menu name: mnuSub, Index: 0) ... SubMenu Item 2 (Menu name: mnuSub, Index: 1) ... SubMenu Item 3 (Menu name: mnuSub, Index: 2) ... SubMenu Item 4 (Menu name: mnuSub, Index: 3) ve bir tane de command button hazirlayin ve kodu yerlestirin: Private Sub mnuSub_Click Call MsgBox("Kliklenen menü: " & Index + 1, vbExclamation) End Sub Private Sub Command1_Click Call PopupMenu End Sub Not: Isterseniz daha güzel etki için "Call PopupMenu " çagrisi yerine Call PopupMenu(Menu:=mnuBtn, X:=Command1. Left, Y:=Command1. Top + _ Command1. Height) çagrisini yada; Call PopupMenu(mnuBtn, vbPopupMenuCenterAlign, Command1. Left + _ (Command1. Width / 2), Command1. Top + Command1. Height) çagrisini kullanin. Text kutusunda olan degisiklik nasyl farkedilir? 'Amaç kullaniciyi yaptigi degisiklikler konusunda programi kapatmadan uyarmaktir. Public Degisti As Boolean 'Bu degisken textbox'ta herhangi bir degisiklik olup olmadigini tutar. Private Sub Text1_Change Degisti= True End SubPrivate Sub Form_Unload If Degisti Then If Msgbox = vbYes Then 'Buraya kaydetme ile ilgili kodlar gelecek Degisti = False ' Degisti degerini tekrar False yap ki bir sonraki degisiklikte tekrar çalisabilsin. 'Bunu sadece buradaki If - End If blogu arasina yaz End If End If End Sub Listbox'a bir text dosyasi içerigi nasyl yüklenir? Private Sub Command1_Click Dim BulunanKelimeler As String Open "C:\test. txt" For Input As

4 rakamly tarih nasyl kontrol edilir? Public Function ValidDate 'Amaç: 4 digitli "yyyy" formatindaki tarihi kontrol etmek; hata var ise kullaniciyi uyarmaktir. 'Input: Texbox'tan string 'Output: True yada False 'Default : False ValidDate = False 'Eger uzunluk "m/d/yyyy" 'den kisa ise fonkiyondan çik If Len < 8 Then Exit Function 'Geçerli bir tarih türü girilmemisse terket If IsDate = False Then Exit Function 'Sonu "yyyy" ile bitmiyorsa yada baslamiyorsa terket Dim StartDate As String Dim EndDate As String EndDate = Right(MDate, 4) StartDate = Left(MDate, 4) If ValidChar(EndDate, "0123456789") = False And _ ValidChar(StartDate, "0123456789") = False Then Exit Function 'Tüm bu testlerden geçilirse True yükle ValidDate = True End Function Web adresleri nasyl açylyr? 'Asagidaki kodu bir kontrolun click event'ine yaz Dim iRet As Long Dim Cevap As Integer Cevap = MsgBox Select Case Cevap Case vbYes iRet = Shell Case vbNo Exit Sub End Select Menüye 13x13 bitmaplar nasyl eklenir? 'Bir Picturebox control ekle 'Autosize özelligini 'True' yap unutma: bitmap olacak 'maximum 13X13 bitmap olmali. 'Asagidaki deklerasyonlari bir Bas modulune ekle: 'Bu örnek VB4 içindir Private Declare Function VarPtr Lib "VB40032. DLL" As Long Private Declare Function GetMenu Lib "user32" As Long Private Declare Function GetSubMenu Lib "user32" As Long Private Declare Function SetMenuItemBitmaps Lib "user32" As Long Const MF_BYPOSITION = &H400& 'form load event içine asagidaki kodu yerlestir Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long mHandle = GetMenu sHandle = GetSubMenu(mHandle, 0) lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen. Picture, imOpen. Picture) lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave. Picture, imSave. Picture) lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, imPrint. Picture, imPrint. Picture) lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, imPrintSetup. Picture, imPrintSetup. Picture) sHandle = GetSubMenu(mHandle, 1) sHandle2 = GetSubMenu(sHandle, 0) lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy. Picture, imCopy. Picture) Çalisma aninda menü nasyl olusturulur? Dim index As Integer index = mnuHook. Count Load mnuHook mnuHook . Caption = "New Menu Entry" mnuHook . Visible = True 'Yeni girdiler mnuHook 'dan sonra olusur. Ancak unutmayin mnuHook halihazirda varolan bir menü elemanidir. Text nasyl sifrelenir? 'encryption function : Public Function Encrypt For I=1 To Len Letter=Mid(Plain, I,1) Mid(Plain, I,1)=Chr(Asc +1) Next Encrypt = Plain End Sub Public Function Decrypt For I=1 to Len Letter=Mid(Encrypted, I,1) Mid(Encrypted, I,1)=Chr(Asc -1) Next Decrypt = Encrypted End Sub Print Encrypt Print Decrypt Form nasyl yavas yavas karartilir? Sub FormFade ' Formu yavas yavas karartir For icolVal% = 255 To 0 Step -1 DoEvents frm. BackColor = RGB Next icolVal% End Sub Formun caption'una nasyl kayan yazy yazylyr? Sub KayanYazi Dim X As Integer Dim current As Variant Dim Y As String Y = frm. Caption frm. Caption = "" frm. Show For X = 0 To Len If X = 0 Then frm. Caption = "" current = Timer Do While Timer - current < 0.1 DoEvents Loop GoTo bitti Else: End If frm. Caption = left current = Timer Do While Timer - current < 0.05 DoEvents Loop bitti: Next X End Sub Verilen kredi karti numarasinin geçerli olup olmadigi nasyl anlasilir? 'Asagidaki fonksiyonu bir BAS modulu içine kopyala 'Not: Tüm kredi kartlari belli bir algoritma ile üretilir. Rastgele sayilar bu algoritmaya uymaz. Bu fonksiyon bu hesaplamalari yapar 'Asagidaki Sub bir command butonuna ait olabilir. Kliklendiginde verilen kart numarasini kontrol eder. Sub KartKontrolu_Click 'KartGecerli degiskeni True olur eger fonksiyon dogru deger çevirirse Dim KartGecerli as Boolean KartGecerli = GecerliKartNumarasimi("4552012301230123") If KartGecerli then Msgbox "Geçerli kart" else Msgbox "Aman dikkat. Bu kart geçersiz!!!" End if End Sub Public Function GecerliKartNumarasimi As Boolean Dim CharPos As Integer Dim CheckSum As Integer Dim tChar As String For CharPos = Len To 2 Step -2 CheckSum = CheckSum + CInt(Mid(pCardNumber, CharPos, 1)) tChar = CStr((Mid(pCardNumber, CharPos - 1, 1)) 2) CheckSum = CheckSum + CInt(Left(tChar, 1)) If Len > 1 Then CheckSum = CheckSum + CInt(Right(tChar, 1)) Next If Len Mod 2 = 1 Then CheckSum = CheckSum + CInt(Left(pCardNumber, 1)) If CheckSum Mod 10 = 0 Then IsValidCreditCardNumber = True Else IsValidCreditCardNumber = False End If End Function Ayin son günü nasyl bulunur? Public Function AyinSonGunu As Byte Dim SonGun As Byte SonGun = DatePart("d", DateAdd("d", -1, DateAdd("m", 1, _ DateAdd("d", -DatePart + 1, Date)))) AyinSonGunu = SonGun End Function Private Sub Command1_Click MsgBox Date & " tarihine ait ayin son günü : " & AyinSonGunu End Sub VB6 projeleri VB5'te nasyl açilir? Notepad yada baska bir editör ile VB 6. vbp dosyasini açin ve bu dosyadaki 'Retained = 0' satirini silip dosyayi kaydedin. Artik VB6 projelerini VB5'te açabilirsiniz. MDB veritabanlarinda hataya neden olan Null field degerlerinden nasyl kurtulunur? Default deger olarak Access string alanlari NULL deger tasir Null deger tasiyan bir alani recordset araciligiyla bir string içine kopyalamak istediginizde runtime type-mismatch hatasi olusur. Bundan kurtulmanin en kolay yolu & karakteri kullanarak her alan basina çift tirnak eklemektir. Asagidaki örnek gibi: Dim DB As Database Dim RS As Recordset Dim sAd As String Set DB = OpenDatabase Set RS = DB. OpenRecordset sAd = "" & RS! ' Adi Soyadi alani içine "" ekleniyor, böylece null deger yokediliyor. Ekran çözünürlügü nasyl bulunur? Genelde ekran çözünürlügüne göre programlarinizdaki nesneleri resize etmek oldukça kullanisli bir yoldur. Ekran çözünürlügünü söyle bulursunuz: Asagidaki kodu form_load'a yazarsanyz her açyly?ta ekran çözünürlü?ünü kontrol eder. Genislik = Screen. Width \ Screen. TwipsPerPixelX Yukseklik = Screen. Height \ Screen. TwipsPerPixelY Ekran_Cozunurlugu = Genislik & "x" & Yukseklik Sonuç asagidaki gibi olur: 800x600 Veritabanina nasyl daha hizli ulasilir? Bir recordset içinde daha hyzly döngü çalystyrmak için bir yol var. Genelde bir çok programcy a?agidaki kodu kullanyr: Do While Not Records. EOF 'Dosya sonuna kadar döngü baslat Combo1. AddItem Records! 'Combo'ya Records recordset'inin adli alanini ekle Records. Movenext 'Bir sonraki kayda git Loop Buradaki problem her defasinda veritabaninin bir sonraki kayda gitmek için dosya sonuna ulasip ulasmadigini kontrol etmek zorunda olmasidir. Bu zorunluluk özellikle çok büyük veritabanlarinda büyük performans kayiplarina neden olur. Çözüm ise önce kayit adedini RecordCount ile bulmak ve For Next döngüsü ile kayit okumaktir : Records. MoveLast ' Recordset'in sonuna giderek kaç adet kayit oldugunu bulmalisiniz. Bu islemin bir kez yapilmasi yeterlidir. KayitSayisi=Records. RecordCount 'Kayyt sayysy bir long de?i?ken içine alyndy Records. MoveFirst 'Ilk kayda gel For i =1 To KayitSayisi '?imdi kayytlary EOF tela?y olmadan birer birer okuyalim Combo1. AddItem Records! Records. MoveNext Next Y?te size garantili %33'lük performans arty?y Gökkusagi renklerinde text nasyl olusturulur? 1. Standart EXE projesi baslat 2. Asagidaki kodu Form'un Paint proc'una yaz: Sub Form_Paint Dim I As Integer, X As Integer, Y As Integer Dim C As String Cls For I = 0 To 91 X = CurrentX Y = CurrentY C = Chr Line -(X + TextWidth , Y = TextHeight , QBColor(Rnd 16), BF CurrentX = X CurrentY = Y ForeColor = RGB(Rnd 256, Rnd 256, Rnd 256) Print "Merhaba Basic Programciligi" Next End Sub 3. Projeyi çalistirirsaniz formun degisik renklerde yaziyla kaplandigini görürsünüz. and watch the form fill with lots of multi-coloured text Text kutusundaki bosluklar nasyl yokedilir? Kullanicilarin text kutusuna bosluk karakteri girmelerini engellemek için : Textbox 'un KeyPress olayina asagidaki kodu yaz: Private Sub Text1_KeyPress If KeyAscii = 32 Then KeyAscii = 0 End If End Sub Tek harekette text dosyasi nasyl yüklenir? FileText fonksiyonunu kullanarak istediginiz dosyayi açar ve textbox içine yerlestirirsiniz. Fonksiyonu Bas modulu içine yaz Function FileText As String Dim dosya As Integer dosya = FreeFile Open filename$ For Input As #dosya FileText = Input$(LOF , dosya) Close # dosya End Function Text1. Text = FileText 'Text1 textbox'una tek hamlede autoexec. bat içerigi yüklenir.

\r\nList1. Clear \r\nWhile Not EOF(1) \r\nInput