fb:porticula NoPaste
yetlib.bi
Uploader: | Volta |
Datum/Zeit: | 25.05.2009 16:31:14 |
Declare Sub PrintAt Lib "yetlib" Alias "PrintAt" ( _
byRef Msg As String, _
Farbe As Integer=LoWord(Color), _
Zeile As Integer=CsrLin, _
Spalte As Integer=Pos _
) 'Spezialdeklation für PrintAt usw.
Declare Function Deg2Rad Lib "yetlib" Alias "Deg2Rad" _
(WinkelInDeg As Double) As Double 'soll einen Wert zurückgeben..
Declare Function Rad2Deg Lib "yetlib" Alias "Rad2Deg" _
(WinkelInRad As Double) As Double 'soll einen Wert zurückgeben..
Declare Function MenuChar Lib "yetlib" Alias "MenuChar" ( _
byVal MenuItem As String, _
byVal First As Integer=1, _
byVal nVG As Integer=12 _
) As String '12=hellrot
Declare Function GetKeyPress lib "yetlib" Alias "GetKeyPress" ( _
byVal Msg As String, _
byVal Allowed As String, _
byVal Upper As Integer=-1 _
) As String