目前有以下兩單位text1(text)、HScroll1(HScrollbar,max=100,min=0),我希望將HScrollbar中指定的數值代入text中,那麼...
=========================
text1.text=HScroll1.value
=========================
這樣不對嗎?因為我這樣用還是一樣..text中的數值依然沒變,請各位幫幫忙,謝謝嘍!
創作者介紹

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 PIXNET 留言(4) 人氣()


留言列表 (4)

發表留言
  • Solars
  • 目前有以下兩單位text1(text)、HScroll1(HScrollbar,max=100,min=0)
    ^^^^^^
         (兩物件or兩控制項吧?)

    你的意思是當Change HScroll1時,HScroll1的新的數值會
    顯示在Textbox1中是吧?不太懂你的意思
    Private Sub HScroll1_Change()
    Text1.Text = HScroll1.Value
    End Sub
  • 初學者-Sea
  • 不知道您的意思~
    是不是這樣滴
    Text1.Text=CStr(HScroll1.Value)
  • Bob
  • 程式碼沒錯,問題是你把程式碼寫在哪個 event?
    應該是 change 跟 scroll 兩個 event 都要寫
    Private Sub HScroll1_Change()
    Text1.Text = HScroll1.Value
    End Sub
    Private Sub HScroll1_Scroll()
    Text1.Text = HScroll1.Value
    End Sub
  • maple
  • 謝謝大家,我下次會把問題說清楚點的,謝謝大家。
找更多相關文章與討論