1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Maybe'den İşinize Yarayacak Ufak Kodlar :P ( V.b 6 )


  1. Nina Ricci

    Nina Ricci   exlmanager rank8

    Kayıt:
    19 Ekim 2009
    Mesajlar:
    10.361
    Beğenilen Mesajlar:
    10
    Ödül Puanları:
    38
    Sizler İçin Arşivimden Seçerek Çıkarttığım Ufak Ama İşe Yarar Kod Parçacıkları ;

    Başlık Çubuğu Olmadan Formu Taşıma

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Integer, ByVal IParam As Long) As Long

    Private Declare Sub ReleaseCapture Lib "user32" ()

    Private Const WM_NCLBUTTONDOWN = &HA1
    Private Const HTCAPTION = 2


    Private Sub Formu_Taşı(sForm As Form)

    ReleaseCapture
    Call SendMessage(sForm.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)

    End Sub

    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    'Sol Fare tuşuna tıklayarak formu taşıyabilirsiniz.
    If Button = 1 Then Formu_Taşı Me

    End Sub

    Başlangıçta Form Ekran Ortasında

    move(screen.width-width)/2, (screen.height-height)/2

    İşlemciyi Göster

    Set Reg = CreateObject("Wscript.Shell")

    MsgBox "CPU " & Reg.RegRead("HKEY_LOCAL_MACHINE\Hardware\Description\System\CentralProcessor\0\ProcessorNameString")

    Programınız Üst Üste Çalışmaz

    Form_Load Kısmına

    If App.PrevInstance Then
    MsgBox "Program zaten aktif", vbInformation
    End
    end if

    Saat & Tarih

    Araçlar : 1 adet Timer , 2 adet Label

    Private Sub Form_Load()
    Timer1.Interval = 100

    End Sub

    Private Sub Timer1_Timer()
    Label1 = Date
    Label2 = Time
    End Sub

    Herhangi Bir Siteye Giriş Komutu

    Shell "explorer.exe http://www.extraloob.com"

    Visual Basic 6 İçindir.

    Saygılar,Maybe


    *
     
  2. Unforgiven

    Unforgiven Buralıyım rank8

    Kayıt:
    13 Temmuz 2009
    Mesajlar:
    3.605
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Çok güzel aldım D:\'ye :beer:
     
  3. [GM] Essence

    [GM] Essence Öğretiyorum rank8

    Kayıt:
    23 Haziran 2009
    Mesajlar:
    869
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Rastgele bir sayı sallama kodu : Int(Rnd * Maximum ne kadar sallayacağı.) + 1
    Ben de birşey paylaşayım dedim. :muck:
     
  4. Nina Ricci

    Nina Ricci   exlmanager rank8

    Kayıt:
    19 Ekim 2009
    Mesajlar:
    10.361
    Beğenilen Mesajlar:
    10
    Ödül Puanları:
    38
    bildiklerini , elindeki verileri paylaşırsan kullanıcılara faydalı olur :muck:
     
  5. MrCrossover

    MrCrossover Aileden rank8

    Kayıt:
    3 Temmuz 2009
    Mesajlar:
    5.584
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Şehir:
    Staples Center @ Los Angeles
  6. BaSoryong

    BaSoryong Buralıyım rank8

    Kayıt:
    17 Temmuz 2008
    Mesajlar:
    3.259
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    Öğrençi :)
     
  7. Nina Ricci

    Nina Ricci   exlmanager rank8

    Kayıt:
    19 Ekim 2009
    Mesajlar:
    10.361
    Beğenilen Mesajlar:
    10
    Ödül Puanları:
    38
    Her Zaman :kalp: :muck: 8)