按键精灵吧 关注:499,751贴子:1,015,317
  • 4回复贴,共1

随机选择输入,源码在下楼

取消只看楼主收藏回复

随机选择输入,源码在下楼



来自Android客户端1楼2019-05-13 11:13回复
    Dim 随机评论(),评论内容(),评论随机
    Dim 内容次数=1
    Function 随机评论hs()
    For i = 1 To 4 //4为输入框个数
    随机评论(i) = ReadUIConfig("随机评论-多选框" & i)
    If 随机评论(i) = True Then
    评论内容(内容次数) = ReadUIConfig("评论内容-输入框" & i)
    内容次数=内容次数+1
    End If
    Next
    评论随机 = Int((((内容次数-1)-1+1) * Rnd()) + 1)
    随机评论hs = 评论内容(评论随机)
    End Function
    TracePrint 随机评论hs()


    来自Android客户端2楼2019-05-13 11:13
    回复
      界面1:
      {
      标签页1:
      {
      水平布局:
      {
      多选框:
      {
      注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
      名称:"随机评论-多选框1",
      提示内容:" ",
      点击响应:"函数名1",
      选中:true,
      文字大小:0,
      高度:0,
      宽度:0
      },
      输入框:
      {
      注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
      名称:"评论内容-输入框1",
      提示内容:"输入内容",
      初始文本:"",
      仅输入数字:false,
      文字大小:0,
      最大输入长度:0,
      高度:0,
      宽度:0
      },
      注释:"用于将多个控件放在同一行",
      },
      水平布局:
      {
      多选框:
      {
      注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
      名称:"随机评论-多选框2",
      提示内容:" ",
      点击响应:"函数名1",
      选中:true,
      文字大小:0,
      高度:0,
      宽度:0
      },
      输入框:
      {
      注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
      名称:"评论内容-输入框2",
      提示内容:"输入内容",
      初始文本:"",
      仅输入数字:false,
      文字大小:0,
      最大输入长度:0,
      高度:0,
      宽度:0
      },
      注释:"用于将多个控件放在同一行",
      },
      水平布局:
      {
      多选框:
      {
      注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
      名称:"随机评论-多选框3",
      提示内容:" ",
      点击响应:"函数名1",
      选中:false,
      文字大小:0,
      高度:0,
      宽度:0
      },
      输入框:
      {
      注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
      名称:"评论内容-输入框3",
      提示内容:"输入内容",
      初始文本:"",
      仅输入数字:false,
      文字大小:0,
      最大输入长度:0,
      高度:0,
      宽度:0
      },
      注释:"用于将多个控件放在同一行",
      },
      水平布局:
      {
      多选框:
      {
      注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
      名称:"随机评论-多选框4",
      提示内容:" ",
      点击响应:"函数名1",
      选中:false,
      文字大小:0,
      高度:0,
      宽度:0
      },
      输入框:
      {
      注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",
      名称:"评论内容-输入框4",
      提示内容:"输入内容",
      初始文本:"",
      仅输入数字:false,
      文字大小:0,
      最大输入长度:0,
      高度:0,
      宽度:0
      },
      注释:"用于将多个控件放在同一行",
      },
      },
      }


      来自Android客户端4楼2019-05-13 11:16
      回复
        有用的拿走,大佬请无视


        来自Android客户端5楼2019-05-13 11:18
        回复
          有的插件有这个功能,自己写也不难


          来自Android客户端10楼2019-06-28 16:46
          回复