• 12回复贴,共1

跪求大佬翻译成汉语

只看楼主收藏回复

Dim bzPrivate Sub Timer1_Timer()If Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then bz = 1If Shape1.Left <= 0 Then bz = 0If bz = 0 Then Shape1.Left = Shape1.Left + 10If bz = 1 Then Shape1.Left = Shape1.Left - 10End Sub


来自iPhone客户端1楼2017-06-08 09:40回复
    在线等 挺急的


    来自iPhone客户端2楼2017-06-08 09:40
    回复
      2025-08-02 13:15:59
      广告
      不感兴趣
      开通SVIP免广告
      正在使用发音
      昏暗的bzprivate子timer1_timer()如果形状。左> = form1.scalewidth -形状。宽度然后BZ = 1if形状。左< = 0然后BZ = 0if BZ = 0然后形状。左=形状。左+ 10if BZ = 1然后形状。左=左10end子形状。


      来自Android客户端3楼2017-06-08 09:52
      收起回复
        定义变量bz定时执行以下代码如果形状控件Shape1的右端超出了窗体右边界,则令bz=1如果Shape1的左端超出了窗体左边界,则令bz=0如果bz=0,则将Shape1向右移动10个单位如果bz=1,则令Shape1向左移动10个单位
        你的代码不换行,我的翻译也不换行
        好吧,这应该是iOS版贴吧的bug,会吃掉换行,下面是加上换行之后的翻译:
        定义变量bz
        定时执行以下代码:
        如果形状控件Shape1的右端超出了窗体右边界,则令bz=1
        如果Shape1的左端超出了窗体左边界,则令bz=0
        如果bz=0,则将Shape1向右移动10个单位
        如果bz=1,则令Shape1向左移动10个单位


        4楼2017-06-08 09:53
        收起回复
          厉害了


          来自iPhone客户端5楼2017-06-25 07:51
          回复