Screen Capture Ekran görüntüsü fotografını çekin. İhtiyacınız olan componentler: 7 adet buton 1 adet Picture Box 1 adet CommonDialog ' *** Bu kodları Generel - (Declarations) altına kopyalayın. Option Explicit Option Base 0 Private Type PALETTEENTRY peRed As Byte peGreen As Byte peBlue As Byte peFlags As Byte End Type Private Type LOGPALETTE palVersion As Integer palNumEntries As Integer palPalEntry(255) As PALETTEENTRY End Type Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(7) As Byte End Type Private Const RASTERCAPS As Long = 38 Private Const RC_PALETTE As Long = &H100 Private Const SIZEPALETTE As Lon [...] Yazının devamı için buraya tıklayın...

Hata Yakalama Program yazarken hata mesajlarını nasıl organize ediyorsunuz? Kullanıcı hata mesajlarından bir şey anlayabiliyor mu? Yada kullanıcı hata mesajı ekranda belirince ne yapacağını biliyor mu? Burada anlattığım yöntem ile program içinde oluşan hata mesajlarını daha anlaşılır biçime sokabiliriz. Böylece hem kullanıcı hata ile karşılaşınca ne yapacağını bilir, hemde siz hatayı çözerken nereden başlayacığınızı bilirsiniz. Genel olarak özetleyecek olursak bir VB projesinin, projedeki tüm formların ve formlardaki tüm fonksiyonların bir ismi vardır. Kullanıcı göreceği hata mesajında şöyle bir yapı ile karşılaşır. [...] Yazının devamı için buraya tıklayın...

YAZMA MODLARI 1 – Output Modu Dosya sıralı erişim modunda sadece yazma işlemi için açılır. Veriler tek yönlü taşınır ve okuma işlemine izin verilmez. Yazma işlemi birkaç farklı teknikle yapılabilir.Bunlardan birincisi PRINT metodudur. Print metodunda bilgiler yan yana veya alt alta aralarında hiçbir ayıraç kullanılmadan yazılır. Veriler yan yana Print #1, bilgi1,bilgi2,bilgi3 yazılır. Print #1, bilgi1 Print #1, bilgi2 Veriler Print #1, bilgi3 alt alta yazılır. Write metodu ise ikinci bir seçenektir. Bu metot ile yazma işlemi yaptığımızda hedef dosyaya gönderdiğimiz bütün bilgiler “bilgi” şeklinde çift tırnak ile ayrılırlar. Yine p [...] Yazının devamı için buraya tıklayın...

Yardım Dosyalarına Common Dialog İle Bağlantı Kurmak Project--> Components--> Microsoft Commont Dialog Control `ü components`i seçin . CommonDialog1`i formunuza ekleyin . Project-->Project1 Properties (? Hangi proje ismini vermişseniz )-->Help File Name `den hazırlamış olduğunuz *.hlp ( ? Hangi help dosya ismini vermişseniz ) dosyasını giriniz . App nesnemizin HelpFile özelliği tasarım aşamasında set edilmiş olur . Ayrıca setup hazırlarken help dosyalarını da otamatik olarak ekletmiş oluruz . Sub Command1_Click() With CommonDialog1 .HelpFile=App.HelpFile .HelpCommand=11 ’içindekiler sekmesini görüntüler .ShowHelp End With End S [...] Yazının devamı için buraya tıklayın...

Programınızın birçok formdan oluşuyorsa bütün formların görev çubuğunda (Taskbar) dizilmesi pek hoş olmaz.Bu kod ile bu durumun üstesinden gelebilirsiniz... Option Explicit Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (Byval hwnd As Long , Byval nIndex As Long , Byval dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long , Byval nIndex As Long) As Long Private Const WS_EX_APPWINDOW = &H40000 Private Const GWL_EXSTYLE= (-20) Private Sub Command1_Click() Dim a, b As Long a = GetWindowLong(hwnd , GWL_EXSTY [...] Yazının devamı için buraya tıklayın...

Option Explicit Private Sub Form_Load() mdosya.Visible = False End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then X = 0 Y = 0 PopupMenu mdosya, 4, Form1.Left + X, Form1.Top + Y End If End Sub Private Sub mac_Click() CommonDialog1 = 1 End Sub Private Sub mcıkıs_Click() End End Sub Private Sub mcopy_Click() Clipboard.SetText Text1.SelText End Sub Private Sub mcut_Click() [...] Yazının devamı için buraya tıklayın...