编程方法和语法和VB一样,只是编译成应用程序的时候,能选择输出为 Mac OS X 和 Mac OS 8-9(Classic)和 windows 98/NT/2000/XP 和 Linux/x86 四种操作系统的应用程序.
由于身边的朋友只装 XP, 所以只能测试这个系统的(已经通过,爽哦).还有朋友对这个语言感兴趣吗?一起玩玩哦.这个语言就是REALbasic,活活活~~~~~~.官方网站:http://www.realsoftware.com/多希望有多点朋友能介绍这个编程语言啊.另外有Linux和Mac OS 的朋友能帮忙测试一下吗?
由于身边的朋友只装 XP, 所以只能测试这个系统的(已经通过,爽哦).还有朋友对这个语言感兴趣吗?一起玩玩哦.这个语言就是REALbasic,活活活~~~~~~.官方网站:http://www.realsoftware.com/多希望有多点朋友能介绍这个编程语言啊.另外有Linux和Mac OS 的朋友能帮忙测试一下吗?
不过也能运行,就是全E文看不懂...
一次编写,随处运行!!!!!
怎么CSDN对这个这么冷淡?怪事啊~~~~
但是觉得封装不够
相关帮助文件太少了
和VB相关联的地方不多
也不知道如何使用API
不大好用了
注册机也没找到
10天也没看出过所以然来
#if TargetWin32
Declare Function CreateRectRgn Lib "gdi32" (left as integer, top as integer, right as integer, bottom as integer) as integer
Declare Function CombineRgn Lib "gdi32" (rgnDest as integer, rgnSrc1 as integer, rgnSrc2 as integer, combineMode as integer) as integer
Declare Function DeleteObject Lib "gdi32" (hObject as integer) as integer
Declare Function SetWindowRgn Lib "user32" (hWnd as integer, hRgn as Integer, bRedraw as Boolean) as integer
Dim rgn as Integer
Dim x, x2, y as Integer
Dim r1, r2 as Integer
Dim i as Integer
r1 = CreateRectRgn(0, 0, 0, 0)
for y = 0 to pic.height - 1
x = 0
while x < pic.width
if pic.graphics.pixel(x, y) <> transparentColor then
for x2 = x to pic.width - 1
if pic.graphics.pixel(x2, y) = transparentColor then
exit
end if
r2 = CreateRectRgn(x, y, x2+1, y+1)
i = CombineRgn(r1, r1, r2, 2)
i = DeleteObject(r2)
x = x2
next
end if
x = x + 1
wend
next
i = SetWindowRgn(WinHWND, r1, true)
#endif
你到管方网站下个例程包就知道了,里面的例程包括了方方面面.
在线帮助文件也很全面,直接拖拉就能直接把例程脱过来.
代码编写方式比VB更加容易管理,一目了然.
俺正在摸索中~~~~有空多交流哦.
我发现我慢慢喜欢上它了.
例程包里面演示几个游戏.令人惊讶!注册机随便baidu一搜就大把有了.竟然没找到?不会吧?