Profesyonel Toolkit göstergesi denetimiyle HORZ1.BMP nasıl kullanılır

Makale çevirileri Makale çevirileri
Makale numarası: 81459 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Bu makalede, Visual Basic ile HORZ1.BMP bit eşlem dosyası Windows göstergesi özel denetim (GAUGE.VBX) kullanarak bir program örneği içerir.

Daha fazla bilgi

Not: Bu dosyayı GAUGE.VBX özel denetim \Windows\System alt dizininde bulunabilir. HORZ1.BMP bit eşlem dosyasını, yükleme sırasında oluşturulan \BITMAPS\GUAGE alt dizininde bulunabilir.

Örnek program

  1. Windows için Visual Basic zaten çalışıyorsa, yeni proje (H'ye ALT, F,) Dosya menüsünden seçin veya Visual Basic for Windows çalıştırın. Varsayılan olarak, Form1 oluşturulur.
  2. Dosya Ekle Dosya menüsünden'ı seçin. Dosyalar kutusuna GAUGE.VBX özel denetim dosyayı seçin. Göstergesi araç, araç kutusunda görünür.
  3. Form1'için aşağıdaki denetimleri oluşturma:
       Control      Name          Property Setting
       -------------------------------------------------
    
       Timer        Timer1        Interval = 1
       Gauge        Gauge1        Picture = "Horz1.BMP"
                                  Max = 50
                                  InnerBottom = 16
                                  InnerLeft = 38
                                  InnerRight = 2
                                  InnerTop = 14
                                  ForeColor = &HFF&
    						
    (ın Visual Basic for Windows, sürüm 1.0, yukarıdaki nesnelerinin Name özelliği yerine CtlName özelliğini ayarlayın.)
  4. Genel Tanımlamalar bölümüne aşağıdaki satırı ekleyin:
       Dim YoYo As Integer
    						
  5. Form_Load olay yordamına aşağıdaki kodu ekleyin:
    Sub Form_Load ()
       Form1.Caption = "YoYo Gauge Demo"
       Gauge1.Value = Gauge1.Min
    End Sub
    						
  6. Timer1_Timer olay yordamına aşağıdaki kodu ekleyin:
    Sub Timer1_Timer ()
       If Gauge1.Value = Gauge1.Max Then YoYo = -1
       If Gauge1.Value = Gauge1.Min Then YoYo = 1
       Gauge1.Value = Gauge1.Value + YoYo
    End Sub
    						
Çalıştırdığınızda, bu program örnek alternatif doldurun ve Timer olayı yordamına'tarafından denetlenen gibi ölçüm denetimin dolgu alanı boşaltın.

Özellikler

Makale numarası: 81459 - Last Review: 26 Şubat 2014 Çarşamba - Gözden geçirme: 2.2
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Visual Basic 2.0 Professional Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Windows 2000 Hazırlık Çözümleyicisi
Anahtar Kelimeler: 
kbnosurvey kbarchive kbmt KB81459 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:81459

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com