Sub Button1_Click
Dim I As Int
For I=1 To 4
xui.MsgboxAsync("Eintrag Nummer " & I, "Schleifenaufruf")
Next
xui.MsgboxAsync("Erster Eintrag", "Nr 1")
xui.MsgboxAsync("Zweiter Eintrag", "Nr 2")
xui.MsgboxAsync("Dritter Eintrag", "Nr 3")
xui.MsgboxAsync("Vierter Eintrag", "Nr 4")
End Sub
Private Sub ResizeItem (Index As Int, Collapse As Boolean)
Dim item As CLVItem = mCLV.GetRawListItem(Index)
Dim p As B4XView = item.Panel.GetView(0)
If p.NumberOfViews = 0 Or (item.Value Is ExpandableItemData) = False Then Return
...
Sub Class_Globals
'some additional variables added to CustomListView:'
Type ExpandableItemData (CollapsedHeight As Int, ExpandedHeight As Int, Value As Object, Expanded As Boolean)
Private mCLV As CustomListView ' !!!add this library XCustomListView'
Private Sub ResizeItem (Index As Int, Collapse As Boolean)
'finds the item at a index position:
Dim item As CLVItem = mCLV.GetRawListItem(Index)
'finds the "root" panel at this position (container for your content):
Dim p As B4XView = item.Panel.GetView(0)
If p.NumberOfViews = 0 Or (item.Value Is ExpandableItemData) = False Then Return
...
Sub Button1_Click
Dim Zeit as Long=DateTime.Now
xui.MsgboxAsync("Erster Eintrag", "Nr 1")
xui.MsgboxAsync("Zweiter Eintrag", "Nr 2")
xui.MsgboxAsync("Dritter Eintrag", "Nr 3")
xui.MsgboxAsync("Vierter Eintrag", "Nr 4")
log("************************************Button1 FERTIG nach msec=" & (DateTime.Now-Zeit))
End Sub
Sub Button1_Click
Dim Zeit as Long=DateTime.Now
log("Button1 klickt")
xui.MsgboxAsync("Erster Eintrag", "Nr 1")
log("nach nr 1")
xui.MsgboxAsync("Zweiter Eintrag", "Nr 2")
log("nach nr 2")
xui.MsgboxAsync("Dritter Eintrag", "Nr 3")
log("nach nr 3")
xui.MsgboxAsync("Vierter Eintrag", "Nr 4")
log("************************************Button1 FERTIG nach msec=" & (DateTime.Now-Zeit))
End Sub
Sub Foto_oeffnen
Dim Zeit as Long=DateTime.Now
log("SUB Foto_oeffnen")
If File.IsDirectory(Verzeichnis,Dateiliste.get(Bildnummer)) = False Then
log("ist kein Directory")
ImageView1.Bitmap = LoadBitmapSample(Verzeichnis,Dateiliste.get(Bildnummer),500,500)
log("bild geladen" & Dateiliste.get(Bildnummer))
If File.Exists(File.Dirinternal,Dateiliste.Get(Bildnummer)&".titel") Then
log("titel datei existiert")
TitelText.Text = File.ReadString(File.Dirinternal,Dateiliste.Get(Bildnummer)&".titel")
log("...und geladen")
Else
TitelText.Text = "no"
End If
End If
log("************************************Foto_oeffnen FERTIG nach msec=" & (DateTime.Now-Zeit))
End Sub
Sub Foto_oeffnen
Dim Zeit as Long=DateTime.Now
'log("SUB Foto_oeffnen")
If File.IsDirectory(Verzeichnis,Dateiliste.get(Bildnummer)) = False Then
'log("ist kein Directory")
ImageView1.Bitmap = LoadBitmapSample(Verzeichnis,Dateiliste.get(Bildnummer),500,500)
log("bild geladen")
If File.Exists(File.Dirinternal,Dateiliste.Get(Bildnummer)&".titel") Then
'log("titel datei existiert")
TitelText.Text = File.ReadString(File.Dirinternal,Dateiliste.Get(Bildnummer)&".titel")
'log("...und geladen")
Else
TitelText.Text = "no"
End If
End If
log("************************************Foto_oeffnen FERTIG nach msec=" & (DateTime.Now-Zeit))
End Sub
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Public Verzeichnis As String
Doch!(Ich glaube, den Einzelschrittmodus gibt es hier nicht, aber ich schaue noch.)
Sub Button_Click
If BilderClass.X=12 Then
Sub Process_Globals
Public MyBild as BilderClass
....
Sub Button_Click
If MyBild.X=12 Then
'Module Daten'
Sub Process_Globals
Public DatenBild as BilderClass
DatenBild.X=12
'Module Main:'
Sub Process_Globals
Public MyBild as BilderClass
....
Sub Button_Click
log(MyBild.X)
'Module BAS'
Sub Process_Globals
Public StartZeitHeute as LONG
...
Sub SetzeStartZeit
StartZeitHeute=DateTime.Now
'Module Main:'
Sub ACTIVITY_Start
BAS.SetzteSartZeit
Sub Button1_Click
log(BAS.StartzeitHeute)
'Module Xyz:'
Sub CheckeWas
If DateTime.Now > BAS.Startzeit Then
'ohne alles'
SUB DruckeDatumHeute()
log("Datum=" & Date.Date(DateTime.Now)
End Sub
'mit Parameter
Sub LoggeDatumIn_X_Tagen(Tage as int )
log("Datum=" & Date.Date(DateTime.Now + Tage*24*60*60*1000)
End Sub
'mit Rückgabewert
log("Datum=" & DatumIn_7_Tagen()
...
Sub DatumHeuteIn_7_Tagen() as STRING
Dim Dann as Long=DateTime.Now
Dann = Dann + 7*24*60*60*1000
Dim Datum as String=Date.Date(Dann)
Return Datum
End Sub
'mit Parameter und Rückgabewert
log("Datum=" & DatumInZukunft(7,6,33))
...
Sub DatumInZukunft(Tage as Int, Stunden as INT, Minuten As Int) as STRING
Dim Dann as Long=DateTime.Now
Dann = Dann + Tage*Stunden*Minuten*60*1000
Dim Datum as String=Date.Date(Dann)
Return Datum
End Sub
Jede Subroutine kann Werte zurück geben.Noch eine Frage - gibt es in B4A Funktionen?
Public Sub Summe (Wert1 As Double, Wert2 As Double) As Double
Private SummeDerWerte As Double
SummeDerWerte = Wert1 + Wert2
Return SummeDerWerte
End Sub
Public Sub Summe (Wert1 As Double, Wert2 As Double) As Double
Return Wert1 + Wert2
End Sub
TotalWert = Summe(100.34, 234.23)
TotalWert = Summe(A, B)
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?