Arama sonuçlarınız

Merhaba Arkadaşlar , İnternette Gezenirken Başka Bir Forum İçin Yaptığım TV Programını Buldum V.B 6 İle Yapmıştım Onu Sizinle Paylaşmak İstedim ; Buyrun ; Tv Kanallarının IP Adresleri ; TRT 1 = http://212.175.166.3/TV1 TRT 2 = http://212.175.166.3/TV2 TRT 2 = http://212.175.166.3/TV4...

'Öncelikle StandartExe projesi oluşturun ve projenize form1 isimli bir form eklemeniz yeterli 'Buradan itibaren Formumuza yapıştırın 'formun General Declarations'ına yazılacak Option Explicit 'Buradan itibaren sabitleri tanımlıyoruz Const AW_HOR_POSITIVE = &H1 Const AW_HOR_NEGATIVE = &H2 Const...

Visual Basic'te herkesin kolaylıkla yapabileceği mükemmel bir saat örneğini ele alacağız bu dersimizde. Arkadaşlar, forma sadece 2 timer ekliyoruz ve kodları timerlerin içine yazıyoruz. Private Sub Form_Load() Dim aci, i, t AutoRedraw = True Timer1.Interval = 1000 ' 1 saniye...

Private Const WM_SETTEXT = &HC Private Const WM_GETTEXT = &HD Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long...

Kod HTML-Kodu: dim bClose as BooleanForm'un QueryUnload event'ine ekle:If bClose = false then cancel = true

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

Private Sub Command1_Click() Beep End Sub

Bunu yapmak için, Bir adet command click koyun ve daha sonra kendisi gelicek diğer tuşlar. Private Sub Command1_Click() Dim d_tarih, gun Do d_tarih = InputBox("Doğum Tarihinizi Giriniz :") Loop While Not IsDate(d_tarih) Select Case Weekday(d_tarih) Case 1: gun = "Pazar" Case 2: gun =...

Menu Bar VB program menüsü Tool Bar Menü kısayol tuşları Project Explorer Projede yer alan form, module gibi elemanları listeler Properties WindowKontrol ve formların özelliklerini gösterir Form Layout Window Formun ekran üzerinde bulunduğu yeri gösterir ToolBox Arayüz tasarımında...

Visual Basic'te label animasyonu yapmayı görelim. Public Class Form1 Dim r, g, b As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick r = Int(Rnd() * 256) g = Int(Rnd() * 256) b = Int(Rnd() * 256) Label1.ForeColor =...

Private Function TelFormat(TelNo As String) As String If Len(Trim(TelNo)) <= 7 Then TelFormat = "" '7725410 -> 772 54 10 If Len(Trim(TelNo)) = 7 Then _ TelFormat = Mid(TelNo, 1, 3) + " " + Mid(TelNo, 4, 2) + " " + _ Mid(TelNo, 6, 2) ' 2667725410 -> (266) 772 54 10 If Len(Trim(TelNo)) = 10...

uygulamamıza standart exe ile başlayıp 1 picture box 7 adet textbox ve 1 adet command button ekleyelim uygulama başladığında textboks 1 ve 2 de fare koordinatları görünür mausu ilk tıkladığımız yer çizgimizin 1. koordinatı 2. tıkladığımız yer 2. koordinatı olur ve çizgi çizilir 3. tıklamadan...

İlk önce böyle bir form oluşturalım 2 label 2 text1 1 command ekleyin ve kendinize göre forma yerleştirin Private Sub Command1_Click() Select Case Text1.Text 'Bu kısımda kullanıcı adı kısmını tanıtıyoruz Case Is = "" 'Burada ise kullanıcı kısmı boş olduğunda ne yapmak istediğiniz seçersiniz...

Aşağıdaki kodları kullanarak seçilen pencereyi kapatan bir program yapabilirsiniz. Form kodları --------------------- VERSION 5.00 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx" Begin VB.Form Form1 Caption = "Form1" ClientHeight = 5340 ClientLeft = 60...

Visual Basıc'de Dosya Açmak -------------------------------------------------------------------------------- Open Deyimi Visual Basıc'de dosya açma komutu olarak open komutu kullanılır. Eğer dosya varsa dosyayı açar. Eğer dosya yoksa dosyayı yeniden oluşturur ve açar. Open Deyimiyle dosya...

Bunu yapmak için, Bir adet textbox ve command click koyun. Dim speech As SpVoice Private Sub Command1_Click() speech.Speak Text1 End Sub Private Sub Form_Load() Set speech = New SpVoice End Sub

'İlk önce açtığınız forma 7 tane label 2 tane text 1 tanede command butonu koyun ve başlayalım 'ilk önce burda değişkenleri tanımlıyoruz.. dim müsteriver as integer dim müsteritutar as integer 've burda tanımladığımız değişkenleri textlere tanıtıyoruz müsteriver = text1 müsteritutar = text2...

KONU : API Windows Bilgileri Sub listele(adres As String) Dim valuename As String Dim valuelen As Long Dim datatype As Long Dim data(0 To 254) As Byte Dim datalen As Long Dim datastring As String Dim hKey As Long Dim index As Long Dim c As Long Dim retval As Long retval =...

KONU : Veritabanına Kayıt Girmek - 1 Mevcut veritabanını açmak: Var olan bir veritabanını random access olarak açmak için yukarıda verilen (Open ...) kod bloğu kullanılır. Zaten bu kod ile var ise bir dosya açılır yok ise yeni bir dosya yaratılır. Yeni bir kayıt eklemek Bir veritabanı açtınız...

KONU : Veritabanına Kayıt Girmek - 2 İyi programcılar form üzerine yerleştirdikleri nesnelerin adlarını da uygun şekilde değiştirirler, bu şekilde o nesneler çok daha kolay hatırlanır. Textbox lara değişik adlar verelim: With dbKayit .Ad = txtAd .Adres = txtAdres .Tel = txtTel End With...