none
您好!我有VB6.0關於picturebox的問題想發問 RRS feed

  • 問題

  • 您好!我是一個vb6.0的新手

    以下是我遇到的問題

    我制作了2個picturebox的圖讓它做以下動作

    Pic001.Visible = True         ' <<<由左至右   1
    For aaa = 10 To 6000 Step 0.02
             Pic001.Left = aaa
             DoEvents
        Next aaa
             Pic001.Visible = False

       Pic002.Visible = True            '由左下至右上
    For ixa = 10 To 6000 Step 0.02
             Pic002.Left = ixa
             Pic002.Top = 6000 - ixa
             DoEvents
        Next ixa
             Pic002.Visible = False

     Pic001.Visible = True          '<<<由右至左   3
    For aac = 6000 To 10 Step -0.02
             Pic001.Left = aac
             DoEvents
        Next aac
             Pic001.Visible = False

             Pic002.Visible = True            '由右上至左下
    For ixb = 10 To 6000 Step 0.02
             Pic002.Left = 6000 - ixb
             Pic002.Top = ixb
             DoEvents
        Next ixb
             Pic002.Visible = False

    我想制作成讓它們無論畫面大小都會在邊界時換下張圖動作,

    邊界出現的圖會隨著畫面動作出現在邊界

    請問我該如何制作??.謝謝您

    2010年3月24日 下午 07:46

解答

  • Private Sub Form_Resize()
    
        Me.Picture1.Left = 0
        Me.Picture1.Top = 0
        
        Me.Picture2.Left = 0
        Me.Picture2.Top = Me.Height - Me.Picture2.Height - 500
        
        Me.Picture3.Left = Me.Width - Me.Picture3.Width
        Me.Picture3.Top = 0
        
        Me.Picture4.Left = Me.Width - Me.Picture4.Width
        Me.Picture4.Top = Me.Height - Me.Picture4.Height - 500
    
    End Sub
    


    • 已標示為解答 Lolota Lee 2010年3月25日 上午 05:41
    2010年3月25日 上午 02:46

所有回覆

  • Hi!

    您把目前的程式寫死的部分更改一下,思考一下你程式中的數字代表什麼意義

    例如您可以嘗試將 6000 換成表單的 Width 或 Height,把 10 換成 PictureBox 的 Width 或 Height 看看


    歡迎參觀我的Blog.NET菜鳥自救會
    2010年3月24日 下午 09:52
    版主
  • .............我好像問錯方式了...對不起

     

    2010年3月25日 上午 02:03
  • 如果我做4張圖分別想讓它固定啟始位置為左上左下右上右下

    不管畫面如何縮放大小位置都在最邊限

    我應該要如何制作呢??..謝謝您

    2010年3月25日 上午 02:09
  • Private Sub Form_Resize()
    
        Me.Picture1.Left = 0
        Me.Picture1.Top = 0
        
        Me.Picture2.Left = 0
        Me.Picture2.Top = Me.Height - Me.Picture2.Height - 500
        
        Me.Picture3.Left = Me.Width - Me.Picture3.Width
        Me.Picture3.Top = 0
        
        Me.Picture4.Left = Me.Width - Me.Picture4.Width
        Me.Picture4.Top = Me.Height - Me.Picture4.Height - 500
    
    End Sub
    


    • 已標示為解答 Lolota Lee 2010年3月25日 上午 05:41
    2010年3月25日 上午 02:46
  • 謝謝您^^
    • 已標示為解答 kiuhs 2010年3月25日 上午 05:20
    • 已取消標示為解答 Lolota Lee 2010年3月25日 上午 05:41
    2010年3月25日 上午 05:20
  • 標解答的意義是在標示哪幾篇回應文能解決問題.

    不是標 "謝謝您"


    MSDN 文件庫很重要
    問題本身越具體, 越容易得到大家的回應
    回應幫助你的人是一種禮貌, 良好的禮貌有助於激發大家對你問題回應的熱情
    2010年3月25日 上午 06:05
    版主