Search results
Search results 241-260 of 277.
Dear visitor, welcome to Jabaco - Community.
If this is your first visit here, please read the Help. It explains in detail how this page works.
To use all features of this page, you should consider registering.
Please use the registration form, to register here or read more information about the registration process.
If you are already registered, please login here.
Hello everybody, I am wondering a little bit why there is no protest at all. Because the function was not complete until now. Of course superclasses (base classes) and interfaces has to be detected also! As you know each object can have one superclass and several interfaces. The superclass again can have a superclass and several interfaces as well. With TypeOf it should be possible to check an object if it is of a superclass or interface type. How can we get there? We have to walk up the class h...
Hallo, Quoted @All: Ist das normal, dass bei [Dim myForm As New Form2]die Form direkt geöffnet wird? Meines Erachtens ist das ein Fehler Ja das eigentümliche Verhalten ist mir auch schon aufgefallen, siehe meinen Post ModalDialog dort habe ich mit Form.hide rumexperimentiert. Das ist der Grund warum der modale Dialog beim Laden etwas merkwürdig flackert. Ob man das ändern kann weiß ich nicht, aber man sollte das Jabaco verzeihen, es ist halt noch in der Beta-phase. Gruß OlimilO
Hallo, Form1 ist doch normalerweise der Namen des Formulars das standardmäßig also bei Programmstart gestartet wird. schau mal in Module1 bei einem zweiten Formular mußt du erst eine Objekt-Instanz also eine neue Variable des Forms anlegen: Jabaco Source 1 2 Dim MyForm As Form1 MyForm = New Form1 ist damit die Frage beanwortet? oder hab ich es falsch verstanden? Grüße OlimilO
Hi, I am not sure if this really works in Jabaco, maybe there must be some work left to bring this to work. afaik in java it is only possible to return a string as the return value of a function. maybe the Properties-object works for your needs: Jabaco Source 1 2 3 4 5 6 Dim iniFile As New java#io#File("C:\\Test.ini") Dim iniReader As New java#io#FileReader(inifile) Dim ini As New java#util#Properties ini.load(inireader) Dim v As String = ini.get("TestEntry") msgbox v greetings OlimilO
Hi Milan Ah cool its good to know thanks OlimilO
just in case there is a typeof-Operator somewhen maybe the functions should be renamed to IsTypeOf in order not to get in conflict to OlimilO
Yes, of course for what do we have function overloading example of usage Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 Public Sub Command1_Click() Dim obj As Object Dim b As Boolean Dim msg As String = "obj is " '=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+ b = TypeOf(Picture1, "PictureBox") If TypeOf(Picture1, "picturebox") Then MsgBox msg & GetClassName(Picture1...
Hi A1880, Quoted My suggestion is to return "Nothing" as result of TypeOf(Nothing) and let the calling routine handle the situation Yes, i was thinking of this idea, and now i do not know if it is really a good idea. Now the TypeOf-Function returns a boolean, which can only be True or False. If you ask whether an object is nothing or null as you know you can simply do this with the '='-Operator. maybe something like: Jabaco Source 1 If TypeOf(myobj, "Nothing") Then dosomething would be the same ...
Hi A1880 thanks for the idea but i am not quite sure how it was meant. Should the function return false in case of a nothing-object or should it in general return an enum-constant something like: True, Null, False the enhanced TypeOf-function: Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 Public Function TypeOf(obj As Object, cls As java#lang#String) As Boolean 'TypeOf = obj.getClass.toString.toUpperCase.contains(cls): Exit Function If obj = Nothing Then Exit Function If cls = Nothing Then Exit Function...
Hi birosys, many thanks "Warum in die Ferne schweifen, sieh das Gute liegt so nah." greetings OlimilO
Hi, uhh I am trying around a couple of minutes now. a could not figure it out. how to cast in Jabaco from an base object to a derived specialised object? Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 Public Sub Command1_Click() Dim b1 As CommandButton Dim b2 As CommandButton Dim obj As Object b1 = Me.Command1 Msgbox b1.Caption obj = b1 ' OK b2 = obj ' no! of course this does not work: 'the error in english: 'Compil...
Hello everybody, in VB there is a special Syntax to ask of which type an object is the Syntax is: Source code 1 2 3 4 'TypeOf objectname Is objecttype. 'The objectname is any object reference and objecttype is any valid object type. 'The expression is True if objectname is of the object type specified by objecttype; 'otherwise it is False. VB-Code example: Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub Command1_Click() Dim b As Boolean b = TypeOf Picture1 I...
Hi @All I was wondering now a while how to open a Form in modal mode. in VB6 you are used to the Show-Command of a Form like this: Jabaco Source 1 Form2.Show vbModal I found a Thread by Peter, where Manuel said something abound JDialog: Common Questions to Forms (Open and Close) but in the heck how to implement this? in VB6 I am using modal Dialogs like in the following peace of Code: Form1: CommandButton: Command1 Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 Option Explicit Private m_Pt As MyPoi...
VB6-code: Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Private Sub Command1_Click() Dim RetVal As Variant Dim Title As String Dim Prompt As String Dim Default As Variant Title = "Please tell me your name!" Prompt = "Just write your name down here:" Default = 123456789 RetVal = InputBox(Prompt): MessRetVal RetVal RetVal = InputBox(Prompt, Title): MessRetVal RetVal RetVal = InputBox(Prompt, , Default): MessRetVal RetVal RetVal = InputBox(Prompt, "", Defa...
Hi, just replace Declare with WinApi. OlimilO
Quoted unfortunately, the resulting Excel file does not get a correct DateCell written uhh, on my computer this works fine: Jabaco Source 1 2 3 Dim myDate As Date myDate = "03.02.2009" dateCell = New jxl#write#DateTime(currentColumn, currentRow, myDate, dateFormat) but when i use the now-function the cell is in date-format but is has an invalid date-value maybe the excel version ... what version of excel do you use? OlimilO (Excel 2003 SP3)
Hi A1880 easy going with Date but did you notice this bug? Jabaco Source 1 2 3 4 5 6 7 Dim myDate1 As Date Dim myDate2 As Date myDate1 = Now myDate2 = "03.02.2009" MsgBox myDate1 & " <--> " & myDate2 'output is: '01.07.0008 18:28:25 <--> 03.02.2009 00:00:00 OlimilO
Hi, Do you know the Like-Operator in Visual Basic that can be used to compare two strings? small VB-example: Jabaco Source 1 2 3 4 5 6 7 8 9 Private Sub Command1_Click() Dim s As String Dim p As String p = "[0-9]*[+-\*/]*[0-9]*=*[0-9]" s = "1 + 1 = 2" If s Like p Then MsgBox s 'OK s = "a + b = c" If s Like p Then MsgBox s 'no End Sub The syntax is: Source code 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 result = string Like pattern The Like operator syntax has these parts: Part | Descript...
Quoted what if there is another window overlapping my window? yes good question just take the other possibility Jabaco Source 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Private WinApi Function GetDC Lib "user32.dll" ( _ ByVal hwnd As Integer) As Integer Private WinApi Function LineTo Lib "gdi32.dll" ( _ ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer) As Integer Private WinApi Function FindWindow Lib "user32.dll" Alia...
