संपादित:

मैं अपने प्रश्न को और सरल बनाना चाहता हूँ

कोड की जांच करें

Public Class Form1 
        Dim v1 As Double  
    Dim v2 As Double   
    Dim v3 As Double  
         Private Sub Form1_Load(By Val sender As System.Object, By Val e As System.Eventuates) Handles My Base.Load
    label1.text=v1
label2.text=v2
label3.text=v3
     end sub
    Private Sub Button1_Click(By Val sender As System.Object, ByVal e As System.Eventuates) Handles Button1.Click
        v1=v1+10
        v2=v2+20
        v3=v3+30
        End Sub
   end class

मैं चाहता हूं कि जब बटन दबाएं तो लेबल सीधे फॉर्म में बदल जाए, मैं बटन उप में लोड फॉर्म के बिना ऐसा कैसे कर सकता हूं?

0
hamza 15 जून 2018, 19:39

1 उत्तर

सबसे बढ़िया उत्तर

मैं आपकी समस्या को समझ नहीं पा रहा हूं लेकिन फॉर्म 1_लोड को कॉल करना अजीब है और लेबल 2 को एक प्रारंभिक मूल्य पर व्यवस्थित करना भी अजीब है। मैं सुझाव दूंगा कि आप सभी प्रदर्शन तर्क को इसके बजाय एक विधि में डाल दें।

Private Sub DisplayScrollValue(ByVal scrollValue As Double)
    Label1.Text = scrollValue
    label2.text = scrollValue
End Sub

Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll

    DisplayScrollValue((VScrollBar1.Value * -1 / 10).ToString())

End Sub

Private Sub Form11_Load(By Val sender As System.Object, By Val e As System.Eventuates) Handles My Base.Load

    DisplayScrollValue(0)

end sub

मैंने आपका संपादन देखा है और समाधान मैंने जो लिखा है उसके समान ही है। बस एक तरीका है जो लेबल सेट करता है और जब आप उन्हें अपडेट करना चाहते हैं तो उसे कॉल करें।

Public Class Form1 
    Dim v1 As Double  
    Dim v2 As Double   
    Dim v3 As Double  

    Private Sub UpdateLabels()
        label1.text=v1
        label2.text=v2
        label3.text=v3
    End Sub

    Private Sub Form1_Load(By Val sender As System.Object, By Val e As System.Eventuates) Handles My Base.Load
        UpdateLabels()
    end sub

    Private Sub Button1_Click(By Val sender As System.Object, ByVal e As System.Eventuates) Handles Button1.Click
        UpdateLabels()
    End Sub
end class
0
the_lotus 18 जून 2018, 15:40