EntwicklerForum.org

Dim arrString(-1) As String
Dim strQuelle,strZiel1,strZiel2 As String //strQuelle = "Hello World"
arrString=Split(strQuelle," ")
strZiel1=arrString(0) //strZiel1 = "Hello"
strZiel2=arrString(1) //strZiel2 = "World"

Dim dicTest(10,6) As String
dicTest(0,0) = EditField1.Text
dicTest(0,1) = EditField2.Text
dicTest(0,2) = String
dicTest(0,3) = String
.
.
.

double = CDbl(string)

double = Val(string)

string = Str(double)

  dim g as Graphics
  dim page as PrinterSetup
  dim h,w,x,z,mw,mh as Integer
  page = new PrinterSetup
  g = OpenPrinterDialog(page)
  if g = Nil then
    return
  end if
  g.TextFont = "Arial"
  g.TextSize = 12
  w = g.Width/lstDruck.columnCount
  h = g.textHeight
  for x = 0 to lstTest.ListCount-1
    for z = 0 to lstTest.columnCount-1
      g.DrawString lstTest.cell(x,z), (z*w), (x*h)+h
    next
  next

 <a href="http://www.entwicklerforum.org/fullen-einer-listbox-aus-einem-dictionary-heraus#more-25" class="more-link"><img src="http://www.entwicklerforum.org/wp-content/themes/chocotheme/images/button-weiter1.gif" alt="read more" title="Read more..." /></a>

Dim folTest As FolderItem
folTest = DesktopFolder.Child("Neuer Ordner")
if folTest <> nil
  if not folTest.Exists then
    folTest.CreateAsFolder
  end if
end if