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

Ö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
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Ö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.MinEnd 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 + YoYoEnd 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.
1.00 2.00 3.00

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 81459 - Son İnceleme: 02/26/2014 20:51:05 - Düzeltme: 2.2

Microsoft Visual Basic 2.0 Professional Edition, Microsoft Visual Basic 3.0 Professional Edition, Microsoft Windows 2000 Hazırlık Çözümleyicisi

  • kbnosurvey kbarchive kbmt KB81459 KbMttr
Geri bildirim