none
您好!我是個vb6.0的新手!我在練習中遇到了想不通的問題想發問~ RRS feed

  • 問題

  • 我在制作一個圖形讓它由左至右,由上至下,由右至左,再由下至上

    如下寫的:

       Pic001.Visible = True

    For aaa = 10 To 4000 Step 0.02      <<<由左至右
         Pic001.Left = aaa
         DoEvents
        Next aaa
        Pic001.Visible = False
        Pic003.Visible = True
     For aab = 10 To 4000 Step 0.02    <<<由上至下
         Pic003.Top = aab
         DoEvents
          Next aab
          Pic003.Visible = False
           Pic002.Visible = True
      For aac = 4000 To 10 Step -0.02   <<<由右至左
         Pic002.Left = aac
         DoEvents
        Next aac
        Pic002.Visible = False
        Pic004.Visible = True
     For aad = 4000 To 10 Step -0.02   <<<由下至上
       Pic004.Top = aad
         DoEvents
          Next aad
          Pic004.Visible = False

    我想在這之後再做~斜走的方式~由左上至右下,右上到左下,左下至右上,右下至左上

        Pic001.Visible = True
    For aab = 10 To 4000 Step 0.02           <<<由左上至右下
        Pic001.Left = aab
       Pic001.Top = aab
         DoEvents
          Next aab
          Pic003.Visible = False
          Pic003.Visible = True
     For aab = 4000 To 10 Step -0.02         <<<<由右下至左上
        Pic003.Left = aab
       Pic003.Top = aab
         DoEvents
          Next aab
          Pic001.Visible = False

    抱歉~我想請問由左下至右上,由右上玉左下,要如何制作~~謝謝您

    PS.這只是一個我自己在練習中遇到不會制作的問題,不是什麼作業~

    • 已移動 LOLOTAModerator 2010年3月21日 下午 03:02 (從:資源推薦與談天說地(Resources))
    2010年3月21日 下午 02:54

解答

  •     Dim i As Integer
          
        For i = 10 To 4000 Step 0.02
            Me.Picture1.Left = i
            Me.Picture1.Top = 4000 - i
        Next
        
        For i = 10 To 4000 Step 0.02
            Me.Picture1.Left = 4000 - i
            Me.Picture1.Top = i
        Next

    這麼巧,同樣的問題,有人在C#版問...
    2010年3月21日 下午 03:25
  •      

    Pic004.Visible = True    '由左下至右上
    For i = 10 To 4000 Step 0.02
            Pic004.Left = i
            Pic004.Top = 4000 - i   <<上升我想通了.謝謝
             DoEvents
        Next i
        Pic004.Visible = False
        Pic003.Visible = True      '由右上至左下
    For i = 10 To 4000 Step 0.02   
            Pic003.Left = 4000 - i    <<突然也想通了.呵呵.
            Pic003.Top = i
             DoEvents
        Next i
          Pic003.Visible = False

    本來還想問原由..呵呵

    對您致上萬分的敬意.再次謝謝

    • 已標示為解答 kiuhs 2010年3月21日 下午 04:54
    2010年3月21日 下午 04:01

所有回覆

  •     Dim i As Integer
          
        For i = 10 To 4000 Step 0.02
            Me.Picture1.Left = i
            Me.Picture1.Top = 4000 - i
        Next
        
        For i = 10 To 4000 Step 0.02
            Me.Picture1.Left = 4000 - i
            Me.Picture1.Top = i
        Next

    這麼巧,同樣的問題,有人在C#版問...
    2010年3月21日 下午 03:25
  • 感謝^^..真來的剛好.

     

    2010年3月21日 下午 03:47
  •      

    Pic004.Visible = True    '由左下至右上
    For i = 10 To 4000 Step 0.02
            Pic004.Left = i
            Pic004.Top = 4000 - i   <<上升我想通了.謝謝
             DoEvents
        Next i
        Pic004.Visible = False
        Pic003.Visible = True      '由右上至左下
    For i = 10 To 4000 Step 0.02   
            Pic003.Left = 4000 - i    <<突然也想通了.呵呵.
            Pic003.Top = i
             DoEvents
        Next i
          Pic003.Visible = False

    本來還想問原由..呵呵

    對您致上萬分的敬意.再次謝謝

    • 已標示為解答 kiuhs 2010年3月21日 下午 04:54
    2010年3月21日 下午 04:01