*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->


Join the forum, it's quick and easy


*Sitemize Üye Olunca Elinize Ne Geçer?

<--- 1. Üye Olarak Linkleri Görebilirsiniz... --->

<--- 2. İstediğiniz Kadar Paylaşım Yapabilirsiniz... --->

<--- 3. Güzel Bir Forum Hayatı Yaşayabilirsiniz... --->

Would you like to react to this message? Create an account in a few clicks or log in to continue.

● En Güncel Paylaşım Platformu ●

---Misafir--- Hos Geldiniz Daha iyi Bir Hizmet İçin Üye olunuz.ÜyeLer Link GörebiLir

    Vb Kod Form Kalıcı Renk Verme

    MnyTirith
    MnyTirith
    MnyTirith
    ● Admin ●
    ● Admin ●


    <b>Doğum tarihi</b> Doğum tarihi : 20/06/90
    • Post n°1

    Vb Kod Form Kalıcı Renk Verme Empty Vb Kod Form Kalıcı Renk Verme

    Mesaj tarafından MnyTirith Cuma Mart 12, 2010 9:37 pm

    Option Explicit
    Dim renk
    Private Sub Command1_Click()
    commonDialog1.ShowColor
    renk = CommonDialog1.Color
    Form1.BackColor = renk
    Open App.Path & "\ayar.asm" For Output As #1
    Print #1, renk
    Close #1
    End Sub

    Private Sub Form_Load()
    If Dir(App.Path & "\ayar.asm") = "" Then Exit Sub

    Open App.Path & "\ayar.asm" For Input As #1

    Do While Not EOF(1)
    Input #1, renk
    Form1.BackColor = renk
    Loop

    Close #1

    End Sub
    • Sayfa başına dön

      Forum Saati Paz Nis. 28, 2024 5:47 pm