我想写用vb写一个数码雨,像黑客帝国中的那样的情景,我这里有一个bat的数码雨,但是用vb总是调试不对,下面是bat语句:
@echo off
color 0a
echo 打雷啦,下雨啦,回家收衣服啦!!!
setlocal ENABLEDELAYEDEXPANSION
for /l %%i in (0) do (
set "line="
for /l %%j in (1,1,80) do

展开全部
收起
3回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Peyton

    12人对此回答表示赞同

    那还不如在两个和窗体相同尺寸的picturebox里面随机产生数字,从上往下移动两个picturebox,这样应该简单很多。只要在每个picturebox从下边界消失的时候随机画些数字就可以了。
    展开
    12
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 爱吃糖的小女孩

    6人对此回答表示赞同

    楼上说的方法执行效率不可能快!
    我试了下,建个窗体上边放个表,别改名字然后运行!
    '下边的TempNum = Fix(Rnd * 30)中的30是整体字符的密度!
    ----------------------------------
    另外你把下边的、
    FormText = FormText & NumStr & vbLf
    FormText = Right(FormText, FormNum)
    这2句换成
    展开
    6
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 微笑的酒窝

    4人对此回答表示赞同

    '创建一个窗体,将其BorderStyle设置为 0 - NONE
    '添加一个Timer控件
    '将下面的代码添加到代码中
    '按ESC键退出程序 | 1-9 数字键控制密度 | - + 控制速度

    Dim ScreenWordsLen As String
    Dim ScreenWordsLen2 As String
    Dim iNum As String
    Dim iNum2 As String
    展开
    4
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部