Private Declare Function GetTickCount_ Lib "kernel32" () As Long Private Sub Timer1_Timer() Dim t t = GetTickCount& Caption = (t \ 1440000) & ":" t = t Mod (60000 * 24) Caption = Caption & (t \ 60000) & ":" t = t Mod (60000) Caption = Caption & (t \ 1000) End SubOkumaya Devamet (More..)...
Visual Basic | Alpim42 | 
17 Eylül 2011 00:36 | 
Comments (0)
Bir metin içinde aradığınız bir kelimeyi bulmaya ve o kelimeyi işaretlemeye yarayan örnek bir kod:
'Forma Bul adında bir buton ve Metin adında bir textbox yerleştirin
Option Explicit
Dim ArananKelime As String
Dim KelimeninYeri, AramayaBasla As Integer
Private Sub Bul_Click()
ArananKelime = InputBox("Metin içinde aradığınız kelimeyi giriniz:", Okumaya Devamet (More..)... Visual Basic | Alpim42 | 00:25 | Comments (0)
Başka bir formu yandaki gibi oluşturalım ve adını Kayıtsilme olarak değiştirelim. Label7 'i ad olarak değiştirelim label8 'i dyeri olarak label9 'u dtarihi olarak label10'u tel olarak label11'i adres olarak Text1'i de kayıtnumarası olarak değiştirelim Command1'ide Sil ve Command2 'yi İptal olarak değiştirelim Private sub sil_Click() kaysay = Okumaya Devamet (More..)...
Visual Basic | Alpim42 | 16 Eylül 2011 23:58 | Comments (0)
Dosyaya kayıt girişi yapmadan önce yandaki gibi bir menü oluşturalım. Ayrıca şu özellikleri de aşağıdaki gibi değiştirelim... Text1'i Kayıtnumarası olarak değiştirelim Text2'yi ad olarak Text3'ü dyeri olarak Text4'ü dtarihi olarak Text5'i tel olarak Text6'yı adres olarak Command1-2-3' ü de Sırayla kaydet-iptal-menüyedön Form1'i Okumaya Devamet (More..)...
Visual Basic | Alpim42 | 23:48 | Comments (0)
Close Deyimi Visual Basıc'da dosya kapatma deyimi olarak Close deyimi kullanılır. Cose deyimine parametre olarak kapatılmak istenen dosya numarası verilir ve numaranın önüne # işareti konur. Close deyimiyle dosya kapatılması şu şekildedir; Private Sub Command1_Click() Close # 1 End End Sub Close deyimine parametre olarak verilen #1 deyimi Okumaya Devamet (More..)...
Visual Basic | Alpim42 | 23:21 | Comments (0)
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 Açılımı şu şekildedir; Private Sub Okumaya Devamet (More..)...
Visual Basic | Alpim42 | 22:58 | Comments (0)
*** The Save Function *** Open App.Path & "\" & "playlist.dyr" For Output As 1 For x = 0 To List1.ListCount - 1 List1.ListIndex = x Print #1, List1.Text Next Close 1 *** The Load Function *** Open App.Path & "\" & "playlist.dyr" For Input As 1 Do Until EOF(1) Line Input #1, st List1.AddItem st Loop CloseOkumaya Devamet (More..)...
Visual Basic | Alpim42 | 22:48 | Comments (0)
Public Sub Main() MsgBox "Your current Time Zone Long name is: " & GetTimeZone.LongName MsgBox "Your current Time Zone short name is: " & GetTimeZone.ShortName MsgBox "Your current Time Zone's bias time is: " & GetTimeZone.Bias End Sub Public Function GetTimeZone() As TIMEZONE On Error Goto 0 On Error Resume Next 'CODE SOURCE: Mike McKee Okumaya Devamet (More..)...
Visual Basic | Alpim42 | 22:39 | Comments (0)
işte size füzel bir efekt private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Dim bRunning As Okumaya Devamet (More..)...
Visual Basic | Alpim42 | 22:37 | Comments (0)
Const CnStr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Const CnStr2 = ";Mode=ReadWrite;Persist Security Info=False" Dim CN As New ADODB.Connection Dim RS As New ADODB.Recordset Private Sub Form_Load() CN.Open CnStr1 + "C:\DENEME.MDB" + CnStr2 Set RS = CN.OpenSchema(adSchemaTables) RS.MoveFirst Do Until RS.EOF 'Table_type = table olanlar sizin Okumaya Devamet (More..)...
Visual Basic | Alpim42 | 22:22 | Comments (0)
Subscribe
