German 15 Imagebuttons auf scrollbarem Untergrund

W

Watchkido

Member
Liebe Grüße ins Forum!

Ich bin neu hier und brauche für eine medizinische App 24 Bildschirme mit 4-15 Buttons.
Es sind jeweils 2 Spalten auf dem Bildschirm.
Jeder Button ist 150x190 groß und hat ein Bild drin.
Natürlich soll das ganze scrollbar sein.
Beim klicken auf den Button taucht dann ein erklärender Text zu dem Bild auf.

Jetzt habe ich versucht so ein Design zu erstellen.
Scheitere aber am Scrollen. :BangHead:
Das Tutorial kann ich auch nicht gebrauchen weil ja alle meine Bilder direkt im App-Design sind und nicht auf der SD Card liegen. (man darf sie nicht einfach rauskopieren können)

Wie komme ich da weiter?
Geht es auch besser/einfacher als mit meinen vielen Bildschirmen?
Die Bildschirme zeigen dann Teile des Gesichts, der Hände, der Beine usw. und dazu nach dem Klick die Erklärungstexte.


lg Frank
 
Last edited:
klaus

klaus

Expert
Licensed User
Longtime User
Hallo Frank,
Willkommen in der B4A Welt.

Du muss etwas genauer darstellen was Du genau machen willst.

Jetzt habe ich versucht so ein Design zu erstellen.
Click to expand...
Was hast Du gemacht und wie ?

Das Tutorial kann ich auch nicht gebrauchen...
Click to expand...
Von welchem Tutorial sprichst Du ?

Die Bilder kannst Du im IDE in den File Ordner laden und im Programm mit File.DirAssets aufrufen.

Zum scrollen ist die ScrollView View die Beste.
Sollen beide Spalten simultan gescrollt werden oder unabhängig.
Was ist der Unterschied zwischen den 24 Bildschirmen und wie weden sie erstellt. Wie wird der Bildschirm der angezeigt werden soll selektiert?

Um die beste Hilfe zu bekommen ist es vorteilhaft Dein Projekt als zip Datei zu posten (im IDE Menü, File/Export As Zip). Da können die Helfer sehen was Du schon gemacht hast und wie und dann gezielte Hilfe leisten.

Beste Grüsse.
 
C

CDPeter

Member
Licensed User
Longtime User
Hi Frank,
Watchkido said:
Ich bin neu hier und brauche für eine medizinische App 24 Bildschirme mit 4-15 Buttons.
Es sind jeweils 2 Spalten auf dem Bildschirm.
Jeder Button ist 150x190 groß und hat ein Bild drin.
Natürlich soll das ganze scrollbar sein.
Click to expand...
Wie groß ist den die Activity??? Und wie erzeugst du "Spalten"?
Jetzt habe ich versucht so ein Design zu erstellen.
Scheitere aber am Scrollen. :BangHead:
Click to expand...
Scrollt das ganze bei dir nicht automatisch durch verschieben mit dem Finger???
Das Tutorial kann ich auch nicht gebrauchen weil ja alle meine Bilder direkt im App-Design sind und nicht auf der SD Card liegen. (man darf sie nicht einfach rauskopieren können)
Click to expand...
Welches Tutorial meinst du?
Wie komme ich da weiter?
Geht es auch besser/einfacher als mit meinen vielen Bildschirmen?
Click to expand...
Vielleicht solltest du mit Panels arbeiten, die du bei Bedarf sichtbar bzw. unsichtbar machst - auf denen ordnest du die Button an!?
Vielleicht kannst du ja auch mal dein Projekt posten?
LG von Peter
 
W

Watchkido

Member
Boa, das sind mal men haufen Fragen

HI

Ich wusste garnicht das es so schwer ist so einfache Sachen zu erklären :)

Ich bin von Googles App Inventor (AI) hergekommen.
Ich spiele hier noch mit der Trail Version rum, um zu schauen ob das für mich passt.

In AI zieht man einfach alles in den Emulator und verbindet es dann mit dem Blockeditor.
Darum hab ich ähnliches hier auch versucht. Geht aber nicht.
deutsches Doku hab ich auch gelesen und teilweise abgetippt.

Ich könnte euch eine .APK Datei von AI senden.
Aber mit den Source Code könnt ihr hier nichts anfangen.

Ich versuchs nochmal zu erklären

Ein Screen, auf dem 15 Bilder sind.
jedes 150x190 groß
Immer 2 nebeneinander (also 2 Spalten)
1x7 und 1x8 untereinander
alles ist scrollbar weil der Bildschirm natürlich viel kleiner ist.
keine 2 unabhängig voneinander scrollenden Spalten.

Im Emulator scrollt leider nichts (oder ich mach was falsch)

Bei dem Tutorial beziehe ich mich auf das ( ich kann noch keine Links posten) vom deutschen ScrollView in der Dokumentation da werden zwar Bilder in einen scrollbaren Bildschirm eingefügt aber meine Bilder dürfen nicht, wie dort, auf der SDCard liegen *boa ist das Mist wenn man keine Ahnung hat*

Mit Panels könnte ich auch arbeiten, aber wie bekomme ich 15 Bilder auf ein Panel?
Das mit dem aus und einblenden der Bildschirme ist in AI genauso wie hier, das verstehe ich schon.

die 24 Bildschirme kommen daher:

Erst wählt der User aus ob Mann oder Frau
Dann wählt er im nächsten Schirm die Körperteile aus
Arme, Beine, Rücken oder oder oder ( mit durchsichtigen Buttons auf einem Bild)
Von da aus geht es dann zu einem der 24 Bildschirme auf denen eben alle Hautpartien aufgelistet sind.

zb. Rücken:

Regio sacralis: Feld über dem Kreuzbein
Regio vertebralis: Streifen über der Wirbelsäule
Regio scapularis: Gebiet über den Schulterblättern
usw
usw

Wieder klickt er auf ein Bild und bekommt dann eine Erklärung dazu
Ganz simpel. Wie in einem Buch.
Keinerlei wesentlicher Programmcode
Nur Weiterleitungen und zum ende ein kleiner Text.
Einfach ein mini Nachschlagewerk

Die Menschenbilder sind alle in mühsehliger tagelanger Pusselarbeit mit POSER 4 und 7 gefertigt die sollen nicht kopierbar sein und keinesfalls irgendwo im Netz rumschwirren.

Posten kann ich nichts weil ich noch nichts hab.
Außer den 4 Selektionsschirmen
1. Auswahl Mann/Frau
2. Auswahl Hautpartien Mann
3. Auswahl Hautpartien Frau
Die sind ja aber nicht scrollbar und damit problemlos.

Zip ist auch nicht da weil ich ja nix zusammenstellen kann bis auf das was auf den kleinen Emulatorschirm passt.

lg Frank
 
C

CDPeter

Member
Licensed User
Longtime User
Hi Frank,
Watchkido said:
Ich wusste garnicht das es so schwer ist so einfache Sachen zu erklären :) Ich bin von Googles App Inventor (AI) hergekommen.
Click to expand...
Ist es tatsächlich ;) ... die beiden Programmiersysteme lassen sich wohl kaum miteinander vergleichen :(

Ich hab einfach mal was auf die schnelle zusammengezimmert, das funktioniert wohl so, wie du es benötigst ... wenn ich es denn richtig verstanden hab!?!?
Habe das Projekt als ZIP-Datei angehängt ... schau es dir einfach mal an ...

LG von Peter
 

Attachments

  • anatomie.zip
    21.2 KB · Views: 222
W

Watchkido

Member
So sieht es zumindest mal aus wie ich es brauche

Danke CDPeter
So sieht es zumindest mal aus wie ich es brauche.
Mir erscheint es aber recht viel Code.


PHP: 
Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("anatomie")
   Scrollview1.Height = 1520
   Dim bmp1 As Bitmap
   bmp1.Initialize(File.DirAssets,"fgesicht15.jpg")
   Dim bmp2 As Bitmap
   bmp2.Initialize(File.DirAssets,"fgesicht16.jpg")
   Dim bmp3 As Bitmap
   bmp3.Initialize(File.DirAssets,"fgesicht17.jpg")
   Dim bmp4 As Bitmap
   bmp4.Initialize(File.DirAssets,"fgesicht18.jpg")
   Dim bmp5 As Bitmap
   bmp5.Initialize(File.DirAssets,"fgesicht19.jpg")
   Dim bmp6 As Bitmap
   bmp6.Initialize(File.DirAssets,"fgesicht20.jpg")
   Dim bmp7 As Bitmap
   bmp7.Initialize(File.DirAssets,"fgesicht21.jpg")
   Dim bmp8 As Bitmap
   bmp8.Initialize(File.DirAssets,"fgesicht15.jpg")
   Dim bmp9 As Bitmap
   bmp9.Initialize(File.DirAssets,"fgesicht16.jpg")
   Dim bmp10 As Bitmap
   bmp10.Initialize(File.DirAssets,"fgesicht17.jpg")
   Dim bmp11 As Bitmap
   bmp11.Initialize(File.DirAssets,"fgesicht18.jpg")
   Dim bmp12 As Bitmap
   bmp12.Initialize(File.DirAssets,"fgesicht19.jpg")
   Dim bmp13 As Bitmap
   bmp13.Initialize(File.DirAssets,"fgesicht20.jpg")
   Dim bmp14 As Bitmap
   bmp14.Initialize(File.DirAssets,"fgesicht21.jpg")
   Dim bmp15 As Bitmap
   bmp15.Initialize(File.DirAssets,"fgesicht15.jpg")
   Dim iv1 As ImageView 
    iv1.Initialize("")
   Scrollview1.Panel.AddView(iv1,10,0,150,190)
   iv1.SetBackgroundImage(bmp1)
   Dim iv2 As ImageView 
    iv2.Initialize("")
   Scrollview1.Panel.AddView(iv2,160,0,150,190)
   iv2.SetBackgroundImage(bmp2)
   Dim iv3 As ImageView 
    iv3.Initialize("")
   Scrollview1.Panel.AddView(iv3,10,190,150,190)
   iv3.SetBackgroundImage(bmp3)
   Dim iv4 As ImageView 
    iv4.Initialize("")
   Scrollview1.Panel.AddView(iv4,160,190,150,190)
   iv4.SetBackgroundImage(bmp4)
   Dim iv5 As ImageView 
    iv5.Initialize("")
   Scrollview1.Panel.AddView(iv5,10,380,150,190)
   iv5.SetBackgroundImage(bmp5)
   Dim iv6 As ImageView 
    iv6.Initialize("")
   Scrollview1.Panel.AddView(iv6,160,380,150,190)
   iv6.SetBackgroundImage(bmp6)
   Dim iv7 As ImageView 
    iv7.Initialize("")
   Scrollview1.Panel.AddView(iv7,10,570,150,190)
   iv7.SetBackgroundImage(bmp7)
   Dim iv8 As ImageView 
    iv8.Initialize("")
   Scrollview1.Panel.AddView(iv8,160,570,150,190)
   iv8.SetBackgroundImage(bmp8)
End Sub

lg Frank
 
Last edited:
klaus

klaus

Expert
Licensed User
Longtime User
Dein Code könnte auch so aussehen:
B4X: 
[SIZE=2][FONT=Courier New][COLOR=#0000ff][SIZE=2][FONT=Courier New][COLOR=#0000ff][SIZE=2][FONT=Courier New][COLOR=#0000ff]Sub [/COLOR][/FONT][/SIZE][/COLOR][/FONT][/SIZE][/COLOR][/FONT][/SIZE][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]Globals[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]  Dim[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] scv1 [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]As [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008b8b][FONT=Courier New][SIZE=2][COLOR=#008b8b][FONT=Courier New][SIZE=2][COLOR=#008b8b]ScrollView[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]End Sub[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
 
[FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Sub [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]Activity_Create(FirstTime [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]As [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008b8b][FONT=Courier New][SIZE=2][COLOR=#008b8b][FONT=Courier New][SIZE=2][COLOR=#008b8b]Boolean[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]  Dim[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] i [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]As [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008b8b][FONT=Courier New][SIZE=2][COLOR=#008b8b][FONT=Courier New][SIZE=2][COLOR=#008b8b]Int[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]  Dim[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] x, y [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]As [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008b8b][FONT=Courier New][SIZE=2][COLOR=#008b8b][FONT=Courier New][SIZE=2][COLOR=#008b8b]Float[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
 
[SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New]  scv1.Initialize([/FONT][/SIZE][/FONT][/SIZE][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]0[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]  Activity.AddView(scv1, [/FONT][/SIZE][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]0[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]0[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]100%x[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]100%y[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]  scv1.Panel.Color = [/FONT][/SIZE][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Colors[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2].Black[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]  For[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] i = [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]0 [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]To [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]14[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]    Dim[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] bild [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]As [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008b8b][FONT=Courier New][SIZE=2][COLOR=#008b8b][FONT=Courier New][SIZE=2][COLOR=#008b8b]ImageView[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]    bild.Initialize([/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"Bild"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]    Select[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]    Case [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]0[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]7[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]14[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]      bild.Bitmap = [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]LoadBitmap[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]([/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]File[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2].DirAssets,[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"fgesicht15.jpg"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]    Case [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]1[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]8[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]      bild.Bitmap = [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]LoadBitmap[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]([/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]File[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2].DirAssets,[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"fgesicht16.jpg"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]    Case [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]2[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]9[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]      bild.Bitmap = [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]LoadBitmap[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]([/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]File[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2].DirAssets,[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"fgesicht17.jpg"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]    Case [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]3[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]10[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]      bild.Bitmap = [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]LoadBitmap[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]([/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]File[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2].DirAssets,[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"fgesicht18.jpg"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]    Case [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]4[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]11[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]      bild.Bitmap = [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]LoadBitmap[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]([/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]File[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2].DirAssets,[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"fgesicht19.jpg"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]    Case [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]5[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]12[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]      bild.Bitmap = [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]LoadBitmap[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]([/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]File[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2].DirAssets,[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"fgesicht20.jpg"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]    Case [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]6[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]13[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]      bild.Bitmap = [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]LoadBitmap[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]([/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]File[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2].DirAssets,[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"fgesicht21.jpg"[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]    End[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Select[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New]    bild.Tag = i[/FONT][/SIZE]
[SIZE=2][FONT=Courier New]    scv1.Panel.AddView(bild,[/FONT][/SIZE][/FONT][/SIZE][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]5dip[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] + (i [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Mod[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]2[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]) * [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]50%x[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Floor[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2](i/[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]2[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]) * [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]195dip[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]150dip[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2], [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]190dip[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]  Next[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]  scv1.Panel.Height = [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]195dip[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] * [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]8[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]End Sub[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
 
[FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Sub [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]Bild_Click[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]  Dim[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] Send [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]As [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008b8b][FONT=Courier New][SIZE=2][COLOR=#008b8b][FONT=Courier New][SIZE=2][COLOR=#008b8b]ImageView[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]
[SIZE=2][FONT=Courier New][SIZE=2][FONT=Courier New]  Send = [/FONT][/SIZE][/FONT][/SIZE][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Sender[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]  Activity.Title = Send.Tag[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]End Sub[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]

Ich nehme an dass es gewollt ist dass gleiche Bilder mehrmals angezeigt werden.

Beste Grüsse.
 
Last edited:
W

Watchkido

Member
Hi Klaus

Ne ne, es sind immer andere Bilder, ich hab es nur jetzt so gemacht um zu sehen wie es nach unten scrollt. Und es sind letztendlich keine Bilder sondern Buttons. Weil ich ja beim Draufklicken den Text ausgeben muss. Oder geht das auch mit Bildern?

Mit deinem Code komm ich momentan nicht weiter Klaus.
Unabhängig davon das ich mir raussuchen muss was das Programm da macht hab ich Fehlermeldungen:

Compiling code. Error
Error parsing program.
Error description: Missing Keyword: end select
Occurred on line: 44
Next


Error description: Syntax error.
Occurred on line: 42
scv1.Panel.Add View (bild,5dip + (i Mod 2) * 50%x, Floor(i/2) * 195dip, 150dip, 190dip)




lg Frank
 
Last edited:
klaus

klaus

Expert
Licensed User
Longtime User
Das End Select Problem kommt leider vom kopieren vom IDE in das Code Fenster im Forum, da werden leider Leerzeichen rausgenommen, und das habe Ich übersehen.
EndSelect muss End Select sein.

Wenn Du die Bildernamen 'klug' erstellst, mit fortlaufenden Nummern, ist der Code noch kürzer.

Beiliegend ein Testprogramm mit den Bildern von CDPeter.
Die Routine Sub Bild_Click zeigt Text in einem Label an, abhängend davon welches Bild angeklickt wurde.
Ein Klick auf das Label macht dieses wieder unsichtbar.

Beste Grüsse.
 

Attachments

  • Anatomie1.zip
    21.1 KB · Views: 254
C

CDPeter

Member
Licensed User
Longtime User
Hi Frank,
Watchkido said:
Danke CDPeter
So sieht es zumindest mal aus wie ich es brauche.
Mir erscheint es aber recht viel Code.
Click to expand...
tja, ich hatte ja auch geschrieben, dass ich es "auf die schnelle zusammengezimmert" habe ... klar ist das nicht codeoptimiert ..da habe ich an dieser Stelle auch gar kein Augenmerk drauf gelegt, sondern ich wollte dir einen Weg aufzeigen, wie du (d)ein grundsätzliches Problem bewältigen kannst. Codeoptimierung und -anpassung solltest du schon selbst machen :)
Und es sind letztendlich keine Bilder sondern Buttons. Weil ich ja beim Draufklicken den Text ausgeben muss. Oder geht das auch mit Bildern?
Click to expand...
Das ImageView besitzt das Click-Event, also kannst du es auch für diese Zwecke benutzen ... dazu hast du ja schon ein schönes Beispiel von Klaus erhalten ;)

LG von Peter
 
W

Watchkido

Member
Okay

Jou CDPeter

Kann sein das ich das nicht richtig korrekt geschrieben habe.
Ich bin riesig Froh das ihr mir helft hier die ersten Klippen zu überwinden.
Und ja, das ist nicht korrekt an dem innerhalb von 20 min getippten Code was rumzukritteln.

Danke nochmal an euch zwei und ich werd jetzt erstmal straff weiterprogrammieren.
Ihr seht ja dann das Ergebniss beim "Hausfrauen-APP-test" ;-)

lg Frank
 
W

Watchkido

Member
Subroutine mehrmals von mehreren Orten aufrufen

Hi

Ich hab hier mehrere Buttons

Mit jedem dieser Buttons übergebe ich
1. einen Text (z.B. Fgesicht)
2. eine Zahl (12)
3. noch eine Zahl (24)
4. eine Farbe für den Bildschirmhintergrund

an eine Subroutine.
Die Buttons rufen also die Subroutine auf und übergibt die Variablen.


Jetzt habe ich mit Public sub und Callsub
rumexperimentiert bekomm das aber nicht zusammen.

Die Erklärung hier hilft mir auch nicht viel weiter.

Wie ruft man denn eine Subroutine auf?
Die muss auch irgendwie in ein Inhaltsverzeichniss eingetragen werden. (Fehlermeldung)
Welche Parameter müssen da noch eingestellt werden?

Ich glaub ich brauch viel grundlegendere Literatur zu dem Programmieren hier.
Habt ihr da Tipps sowas wie "Programmieren für Dummis" bezogen auf unsere Programmiersprache?

lg Frank
 
klaus

klaus

Expert
Licensed User
Longtime User
Die Buttons rufen also die Subroutine auf und übergibt die Variablen.
Click to expand...
Was macht der Code in dieser Subroutine ?
Wo ist die Subroutine, im gleichen Modul ?

Die Erklärung hier hilft mir auch nicht viel weiter.
Click to expand...
Dieser Post betrifft Basic4PPC und nicht Basic4Android.

Wie ruft man denn eine Subroutine auf?
Click to expand...
Wo ? Im gleichen Module oder in einem anderen.

Du musst geanauer erklären was Du machen willst.
Willst Du mit mehreren Activiteis arbeiten oder mit Panels?
Es gibt ja fast immer mehrere Möglichkeiten ein Problem zu lösen.

Wie schon am Anfang vorgeschlagen, am Besten ist es Dein Projekt als zip Datei zu posten.

Habt ihr da Tipps sowas wie "Programmieren für Dummis" bezogen auf unsere Programmiersprache?
Click to expand...
Der Beginner's Guide leider nur in englisch.
Different examples with two layouts diese Beispiele können auch helfen.

Beste Grüsse.
 
Last edited:
W

Watchkido

Member
Code veröffentlichen bringt mich in Schwierigkeiten

Tja, jetzt hab ich ein Problem.

Weil ich ja nicht will das jedermann im www Zugriff auf meine Bilder hat müsste ich die alle rauslöschen.
Und das jedesmal wenn ich ein Problem habe.
Das macht ne Menge Arbeit.
Ich versuche das zu umgehen.

Und ich verstehe die Masse der Begriffe und deren Zusammenhänge hier nicht.
Du willst Code sehen um mir zu helfen.
Ich habe aber gar keinen außer den den du hier gepostet hast.
An dem Bastel ich rum.
Ich verbringe meine gesammte Zeit mit der SUFU. :)
Wir sind beide per du und ich kenne jetzt alle ihre Tastenkombinationen auswendig.
Auch im Dunkeln und mit auf dem Rücken gekreuzten Händen.
Wen ich dann aufgegeben habe, weil ich nichts finde, schreibe ich hier.


Klaus, dieses Basic hier ist ja an irgendein anderes Basic angelehnt.
Visual Basic von MS oder irgend ein anderes.
Welches ist das?
Zu dem anderen gibt es doch sicher Anfängerbücher in Deutsch die verständlich sind.
Ich meine ihr denkt euch das ja nicht aus, oder?


Was macht der Code in dieser Subroutine ?
Er öffnet einen scrollbaren Bildschirm mit 15 Bildern.
Um diesen Code (den du mir geschrieben hast) nicht in jede SUB Button_Click zu Kopieren und den GesammtCode unendlich aufzublähen, will ich das über eine Subroutine machen. Ich übergebe ihr die Daten mit denen sie dann den Bildschirm incl. Bildern erstellt.

Naja, vieleicht sollte ich das so machen....

Wo ist die Subroutine, im gleichen Modul ?

Modul? Ich brauch gundlegendere Infos über dieses Basic.:BangHead:

lg Frank
 
Last edited:
klaus

klaus

Expert
Licensed User
Longtime User
... dieses Basic hier ist ja an irgendein anderes Basic angelehnt.
Click to expand...
Ja, es ähnelt sich an VB6 oder Basic4PPC an.
Der grosse Unterschied ist das Betriebssystem Android, das ganz anders ist.
Und das ist das grösste Problem für Beginner.
Von der Grundsprache her gesehen sind die Unterschiede nicht so gross, obwohl es auch einige gibt.

Ist das ein ganz neues Projekt oder hast Du schon etwas in einem anderen Basic ?

Ich habe immer noch nicht im Detail verstanden was Du machen willst.
- Du sprichst von Buttons, sind die auf einem anderen Bildschirm als die Bilder.
- Wie viele Buttons hast Du ? Das Click Event von den Buttons kann man in eine einzige Routine verzweigen.
- Welche Parameter willst Du in diese Routine übergeben und wie und mit was werden die anderen Bildschirme erstellt, diese können Panels sein die man sichtbar oder unsichtbar macht.

Ich hab Dir eine e-Mail geschickt.

Beste Grüsse.
 
C

CDPeter

Member
Licensed User
Longtime User
Watchkido said:
Kann sein das ich das nicht richtig korrekt geschrieben habe. Ich bin riesig Froh das ihr mir helft hier die ersten Klippen zu überwinden. Und ja, das ist nicht korrekt an dem innerhalb von 20 min getippten Code was rumzukritteln.
Click to expand...
Oki, kein Thema mehr ;)

Ich hab mal ein Gerüst gebastelt, da kannst du sehen, wie Parameter an Sub's übergeben und weiterverarbetiet werden. Liegt als einfache txt-Datei als Anhang mit dabei

LG von Peter
 

Attachments

  • Subs.txt
    427 bytes · Views: 228
You must log in or register to reply here.

Similar Threads

JOTHA
German B4A mit externem Monitor gestartet, jetzt auf Notebook nicht mehr sichtbar.
Replies
5
Views
712
JOTHA
JOTHA
T
German Markieren Sie eine App auf dem Android-Bildschirm
Replies
2
Views
849
so27
so27
StephanP82
German PDF auf A4-Format
Replies
4
Views
1K
StephanP82
StephanP82
G
B4A Bild auf mehrere Bilder aufteilen
Replies
2
Views
7K
geps
G
W
German Drehender Bildschirm
Replies
4
Views
1K
Wolli013
W
Top