Function GetCurrentIndexCharEditor(ByVal gadget As Long) As integer
Получает индекс текущей позиции вставки
gadget - номер гаджета
Windows , Linux
#Include "window9.bi"
Dim As integer event
Dim As HWND hwnd
hwnd=OpenWindow("1",300,10,500,500)
EditorGadget(1,10,10,300,300, "FreeBasic")
SetSelectTextEditorGadget(1,4,5)
? GetCurrentIndexCharEditor(1)
Do
event=WaitEvent()
If event=EventClose Then End
Loop
3
Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source