Visual basic programlarınıza çok ÅŸahane bir kaybolan form efekti.Kodlar sayesinde formunuzu transparanlaÅŸtırıp kapatabilir yada yavaÅŸça netleÅŸtirebilirsiniz.... VB'yi açın ve bir form daha ekleyin.Yani Form1 ve Form2 Olmalı.Form1 üzerine bir adet Timer nesnesi ekleyin ve aÅŸağıdaki kodları içine yapıştırın. Ä°yi eÄŸlenceler...                   Option Explicit Dim Trans As Integer Private Const LWA_COLORKEY = 1 Private Const LWA_ALPHA = 2 Private Const LWA_BOTH = 3 Private Const WS_EX_LAYERED = &H80000 Private Const [...] Yazının devamı için buraya tıklayın...

Combo1 Box nesnemizden içerik silmek için aÅŸağıdaki kodları kullanabilirsiniz.                   'Combo1 içine item ekleme iÅŸlemi kodları Combo1.AddItem "Programcılık" Combo1.AddItem "Visual Basic" Combo1.AddItem "Vizyul Beyzik" Combo1.AddItem "Kodlama" Combo1.RemoveItem Index 'Combo Box listesinin ilk sırasında olanı silmek için Combo1.RemoveItem 0 'Combo Box listesinde seçili olan öÄŸeyi silmek için Combo1.RemoveIt [...] Yazının devamı için buraya tıklayın...

Visual Basci'le yazılan programları kırmada (crack vs.) en ünlü program Softice programıdır.AÅŸağıdaki kodlar sayesinden bu programın sistemde o esnada çalıp çalışmadığını öÄŸrenebilirsiniz.Softice programını bilenler bilir.Önce Softice çalıştırılır ve sonra kırılacak program.Softice o esnada o programı izler vs. vs. iÅŸte aÅŸaıdaki kod bunu olanaksız kılar...   Bu kısmı bir Bas modül içine ekleyin...           'MODULE içine eklenecek kodlar Public Declare Function CreateFileNS Lib "kernel32" Alias "Cre [...] Yazının devamı için buraya tıklayın...

Programınızı Denetim Masasında gözükmesini istiyorsanız aşağıdaki kodlar işinizi görecektir... Option Explicit Private Declare Function RegCloseKey Lib "advapi32" ( _ ByVal hKey As Long) As Long Private Declare Function RegCreateKeyEx Lib "advapi32" _ Alias "RegCreateKeyExA" ( _ ByVal hKey As Long, _ ByVal lpSubKey As String, _ ByVal Reserved As Long, _ ByVal lpClass As String, _ ByVal dwOptions As Long, _ ByVal samDesired As Long, _ ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, _ ByRef phkResult As Long, _ ByRef lpdwDisposition As Long) As Long Private Declare Function RegOpenKeyEx Lib "advapi32" _ Alias "RegOpenKeyExA" ( _ ByVal hKey As Long, _ ByVal lpSubKey As String, _ ByVal ulOptions As Long, _ ByV [...] Yazının devamı için buraya tıklayın...

Normalinde VB6 da xp stilini kullanabilmek için manifetst dosyasına gerek vardır.Bu kod sayesinde programımız bunu otomatik oluşturacak. Aşağıdaki Kodları Form1 içine yapıştırın... Option Explicit Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long[/vb] [vb]Private Sub Form_Initialize() Dim fso As Variant Dim FName As String FName = App.Path & "" & App.EXEName & ".exe.Manifest" Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FileExists(FName) Then CreateManifest FName MsgBox "Did not find a Manifest file, so one has been created for you." _ [...] Yazının devamı için buraya tıklayın...

Her zaman üstte kalan form 'Formun kod kısmına aynen ekleyin Const HWND_TOPMOST = -1 ' Hep üstte tutan deÄŸiÅŸken deÄŸer Const HWND_NOTOPMOST = -2 ' Hep üstte özelliÄŸini yok eden deÄŸiÅŸken deÄŸer... Const SWP_NOSIZE = &H1 ' Formun boyutlarını deÄŸiÅŸtirilmez yapar... Const SWP_NOMOVE = &H2 ' Formu taşınmaz yapar... Const SWP_NOACTIVATE = &H10 ' Form Aktif yapılmaz... Const SWP_SHOWWINDOW = &H40 ' Pencere Görünür Yapılır... Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _ ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) [...] Yazının devamı için buraya tıklayın...

Program baÅŸlarken bir kaç saniye durup kaybolan baÅŸlangıç formu oluÅŸturma! BaÅŸlangıç Formu hazırlama Ä°lk önce visual basic'i açın.Bir form ekledikten sonra bir de modül ekleyin.Daha sonra Tools menüsünden "Add Procedure"ÅŸeçeneÄŸin girin.Karşınızdaki Tabloda ismi main olarak girin ve ok tıklatın.Formda iken; 1.Forma Basla adını verin. 2.Controlbox=False 3.Picture=none seçeneÄŸine bir resim girin. Son olarakda; Modüle alttaki komutları yazın.             Public Sub Main() Basla.show Basla.refres [...] Yazının devamı için buraya tıklayın...

MSGBOX Fonksiyonu Yaptığınız uygulamalarda kullanıcıya ne olup ne bittiÄŸini ifade etmek için msgbox fonksiyonu kullanılır.ÖrneÄŸin uygulamadaki command1 tuÅŸuna basıldığında formun arkaplanı siyah renkte oluyorsa bunu kullanıcıya msgbox fonksiyonu ile ifade edebiliriz... NASIL KULLANILIR??? MSGBOX Fonksiyonu aÅŸağıdaki ÅŸekilde kullanılır: Msgbox "Bilgi",DüÄŸmeler ve Þekiller,"BaÅŸlık" Bilgi:Bilgi kısmına kullanıcıya vermek istediÄŸiniz bilgiyi yazarsınız... DüÄŸmeler ve Þekiller:DüÄŸmeler ve ÅŸekiller kısmına msgbox üzerinde yer alacak düÄŸmeler ve ÅŸekiller seçilir.ÖrneÄŸin msgbox ü [...] Yazının devamı için buraya tıklayın...

Formu kim kapatıyor Bu kod ile programınızın hangi şartlar altından sonlandığını bulabilir ve ona göre önlem alabilirsiniz. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Select Case UnloadMode Case vbFormControlMenu MsgBox "Kullanici Control menüsünden Close'u seçti" Case vbFormCode MsgBox "Kod içinden Unload çagrilarak kapatildi" Case vbAppWindows MsgBox "Geçerli MS Windows oturumu kapandi" Case vbAppTaskManager MsgBox "MS Windows Task Manager formu programi kapatiyor" Case vbFormMDIForm MsgBox "MDI child window kapanirken ana ekranida kapatiyor" End Select End Sub [...] Yazının devamı için buraya tıklayın...

Sisteminizde hangi programlar çalışıyor? Sisteminizde o anda hangi programlar çalışıyor görmek ister misiniz? Form üzerine 1 adet msflexgrid koyun ve adını grdProcs olarak deÄŸiÅŸtirin. Programı çalıştırdığınızda o anda sistemde aktif olan programları görebilirsiniz                 '--------- Generals Declarations altına kopyalanacak bölüm ---- Option Explicit Const MAX_PATH = 260 Const TH32CS_SNAPPROCESS = 2& Private Type PROCESSENTRY32 lSize As Long lUsage As Long l [...] Yazının devamı için buraya tıklayın...