求大神翻译一段VB代码！完成了可以开源给大家！100JB

酷易自绘

bi As BITMAPINFO_8

For b = 0 To 120 Step 30  '打造256色位图调色板(实际250色)
  For g = 0 To 120 Step 30
    For r = 0 To 120 Step 30
      With bi.bmiColors(Lindex)
        .rgbRed = r: .rgbGreen = g: .rgbBlue = b
      End With
      Lindex = Lindex + 1
    Next r
  Next g
Next b
For b = 147 To 255 Step 27
  For g = 147 To 255 Step 27
    For r = 147 To 255 Step 27
      With bi.bmiColors(Lindex)
        .rgbRed = r: .rgbGreen = g: .rgbBlue = b
      End With
      Lindex = Lindex + 1
    Next r
  Next g
Next b


这一段不知道用易语言怎么表示


或者直接给源文件帮忙全部翻译！



.版本 2


.数据类型 BitmapInfoHeader, , 设备无关位图;
    .成员 biSize, 整数型
    .成员 biWidth, 整数型
    .成员 biHeight, 整数型
    .成员 biPlanes, 短整数型, , , 永远为1，没做研究
    .成员 biBitCount, 短整数型, , , 1(双色)，4(16色)，8(256色)，24(真彩色)，32(真彩色)
    .成员 biCompression, 整数型, , , 0不压缩
    .成员 biSizeImage, 整数型, , , 表示位图数据的大小以字节为单位
    .成员 biXPelsPerMeter, 整数型
    .成员 biYPelsPerMeter, 整数型
    .成员 biClrUsed, 整数型, , , 位图实际使用的颜色表中的颜色数
    .成员 biClrImportant, 整数型, , , 位图显示过程中重要的颜色数


.数据类型 RGBQUAD
    .成员 rgbBlue, 字节型
    .成员 rgbGreen, 字节型
    .成员 rgbRed, 字节型
    .成员 rgbReserved, 字节型


.数据类型 BITMAPINFO_8
    .成员 bmiHeader, BitmapInfoHeader
    .成员 bmiColors, RGBQUAD, , "255"

kspz

http://www.5a5x.com/06/201407/070211016.html   看看这个有没有帮助

Patek

变量循环首 可以设置循环步长，然后便利数组。就这样，代码太长不想打、最主要就是变量循环首

酷易自绘

kspz 发表于 2018-3-25 11:06
http://www.5a5x.com/06/201407/070211016.html   看看这个有没有帮助

不一样呢，这个只是生成位图

酷易自绘

Joker4tb 发表于 2018-3-27 23:53
变量循环首 可以设置循环步长，然后便利数组。就这样，代码太长不想打、最主要就是变量循环首

那还有别的语句呢，For我知道是变量循环首

Patek

with 就是枚举数据类型数组啊。

酷易自绘

Joker4tb 发表于 2018-3-28 20:02
with 就是枚举数据类型数组啊。

这个我也知道怎么用，易语言表示就是 对象数组[几次].成员*
但是我看不懂的是那个格式，比如Next，FOR对应一个next?还是如何，就是不知道易如何表示这个

Patek

for next 是一个循环语句，你不需要考虑这个

酷易自绘

Joker4tb 发表于 2018-3-29 11:26
for next 是一个循环语句，你不需要考虑这个

for在易语言中是变量循环首，那么next是什么呢？我需要知道next在易语言中的表示

Patek

for next 是一个循环语句，不是两个，和易语言变量循环首这个语句一样的。还要我怎么解释。