标签: realbasic

所以..我刚刚下载了Xojo 2014 for OS X,到目前为止已经发现它是一个非常简单有效的开发环境.

但是,我一直在尝试制作45分钟的功能或子程序.每次我尝试按照教程或Xojo文档时,我都会收到以下错误:

我跟着(虽然我可能会遗漏一些东西)这里的指示:http://docs.xojo.com/index.php/Function

即使文档中没有完整的示例(糟糕的开发环境).

此外,在屏幕截图中显示我复制并粘贴Xojo论坛的示例函数,并且应该可以正常工作.我不是每个人都说的新手编程,而是更多的Xojo newb.我过去也曾在RealStudio中遇到过愚蠢的错误.

有人可能会指出我可能会失踪的东西吗？

我即将编写一个小型桌面应用程序,主要应该在Windows和Mac OS X上运行.我到目前为止的选择是:

• 我通常使用Java + Swing来处理这种类型的东西,但是这个应用程序应该非常小(约1Mb)并且我不想在Windows版本上嵌入~26mb JRE或者要求用户安装它.
• 我对Flex和AIR有很好的经验,这个应用程序的用户最终将使用Flash播放器(应用程序将在大多数时间输出swf文件).但性能很重要(有点),我想编写一个具有原生外观的应用程序.
• 我一直在考虑realBasic.这似乎很有前途,很容易上手.但是,我真的不想写基本的.自从我写了基础课程(大约10年)以来已经很长时间了.另外,我找不到很多支持者.

我没有C/C++的工作经验.这是一个非常小的项目,我想在大约一个月内完成.有什么建议？

Dim db as MySQLCommunityServer
  db  =New MySQLCommunityServer
  db.host="127.0.0.1"
  db.port=3306
  db.databaseName="requesterdb"
  db.userName="root"
  db.Password=""

  Dim divisionID As String
  Dim supervisorName As String
  Dim lsupervisorTotal As Integer

  If db.Connect then


    dim r as RecordSet
    r=db.SQLSelect("select COUNT(*) As supervisorTotal FROM supervisorTable WHERE supervisorName='" + SupervisorTextField.Text.Trim + "'")

    if r<>nil and r.RecordCount>0 then
      while not r.EOF
        lsupervisorTotal     = r.IdxField(0) // Line with Error
        If lsupervisorTotal > 0 Then
          ' Check User Database and Insert If Needed
        End If

        r.MoveNext
      wend
    end if


  else
    MsgBox "Connection …

我试图将控制台的文本颜色设置为给定颜色，打印一行（或多行），然后将颜色方案更改回原来的颜色。这是我所拥有的：

Function SetConsoleTextColor(NewColor As UInt16) As UInt16
    Declare Function SetConsoleTextAttribute Lib "Kernel32" (hConsole As Integer, attribs As UInt16) As Boolean
    Declare Function GetStdHandle Lib "Kernel32" (hIOStreamType As Integer) As Integer
    Declare Function GetConsoleScreenBufferInfo Lib "Kernel32" (hConsole As Integer, ByRef buffinfo As CONSOLE_SCREEN_BUFFER_INFO) As Boolean
    Declare Sub CloseHandle Lib "Kernel32" (HWND As Integer)

    Const STD_OUTPUT_HANDLE = -12

    Dim conHandle As Integer = GetStdHandle(STD_OUTPUT_HANDLE)
    Dim buffInfo As CONSOLE_SCREEN_BUFFER_INFO  //A structure defined elsewhere
    If GetConsoleScreenBufferInfo(conHandle, buffInfo) Then
      Call SetConsoleTextAttribute(conHandle, NewColor)
      CloseHandle(conHandle)
      Return buffInfo.Attribute …

我正在寻找可以为Mac和Windows创建应用程序的东西.RealBasic似乎也可以创建内置某种SQLLite数据库的应用程序.这对于需要保存状态/数据的独立应用程序来说非常有用.

我有Flash,可以为Mac和Windows创建可执行文件,但它没有简单的数据库打包或集成.

RealBasic还有哪些其他同类产品？

我想以编程方式创建一些标签,代码不会返回任何错误但我在窗口中看不到任何标签.

dim dr As DatabaseRecord
dim sql As String

sql = "SELECT * FROM pack WHERE applicabilita_modello LIKE '%" + versione + "%'"

dim rs As RecordSet = database.SQLSelect(sql)

dim i As Integer = 1
dim test(10) As Label
while not rs.EOF


  test(i) = new Label

  test(i).Text =  rs.Field("descrizione").StringValue
  test(i).Left = me.Left
  test(i).Top = me.Top * i
  test(i).Enabled = true
  test(i).Visible = true

  rs.MoveNext

  i = i + 1

wend

rs.Close

我已经验证记录集包含一些数据,循环正常工作但没有显示标签,无法理解原因.

谢谢你的帮助

在我离开过去的RealBasic(现在的Xojo)中,我曾经能够声明一个这样的方法:

Sub MyCoolSub(param1 as string, Assigns parameter2 as integer)
Do
'Waste CPU time scrying the universe.
Loop
End Sub

然后以这种方式调用它:

MyCoolSub("Answer")=42

现在我想在VB.Net中复制这种行为.

我偶然发现的最接近的是Property的子句,但是VS不允许我为它添加参数,但是需要一些开销会降低这种声明的便利性.

你有更好的建议吗？

PS.作为一个附带问题,我很高兴知道有一种方法可以在VB.Net中用"//"进行评论,因为我对撇号字符不太满意.作为VS评论字符列表有什么东西吗？也许扩展可以做到......