Ein paar kleine Fragen

Computer: Software & Programmierung Visual Basic
#1

Hallo
habe ein RTF-Textfeld gewählt, weil ich den Text unterschiedlich formatieren wollte. Nun sehen meine Zeilen mit Zeilenumbruch wie folgt aus:
1.00 blabla blabla
1.00.00 blabla blabla usw.

Wie ihr schon sehen könnt, soll die Version mit Datum und UpdateInfo da stehen. So, wie kriege ich die VersionsNr immer in rot???
kann man da in der Zeile zB 1-10. Zeichen rot machen???
Desweiteren wollte ich eine Trennlinie zwischen die drei Texte ziehen.
Aber denkste, die Linie liegt immer unter dem Textfeld??? Geht das auch darüber, es soll nur eine Abtrennlinie sein.
Habe ich vielleicht das falsche Element gewählt um Texte aufzulisten, nur weil ich es bunt will???

Desweiteren wollte ich fragen, wie die Einstellung ist, das eine aktive Form nicht verlassen werden kann bevor man zB OK (Befehlsbutton) drückt?

Ausserdem habe ich ein kleines Bild, welches ich in eine Form als Hintergrund laden möchte. Da das Bild aber sehr klein ist, möchte ich es als Muster haben, d.h so viele Bilder nebeneinander wie die Form groß ist. Ähnlich geht es ja auch bei Hintergrundbild in Windows, wenn ein Bild zu klein ist.

Wer kann helfen.

Mfg Werner

#2

Hi Werner,

Hallo
habe ein RTF-Textfeld gewählt, weil ich den Text
unterschiedlich formatieren wollte. Nun sehen meine Zeilen mit
Zeilenumbruch wie folgt aus:
1.00 blabla blabla
1.00.00 blabla blabla usw.

Wie ihr schon sehen könnt, soll die Version mit Datum und
UpdateInfo da stehen. So, wie kriege ich die VersionsNr immer
in rot???
kann man da in der Zeile zB 1-10. Zeichen rot machen???
Desweiteren wollte ich eine Trennlinie zwischen die drei Texte
ziehen.

Geht glaub ich nicht.

Aber denkste, die Linie liegt immer unter dem Textfeld??? Geht
das auch darüber, es soll nur eine Abtrennlinie sein.
Habe ich vielleicht das falsche Element gewählt um Texte
aufzulisten, nur weil ich es bunt will???

habe dir mal was kurzes geschrieben, um dir die Verwendung des RTF-Elements zu verdeutlichen :

Private Sub Command1_Click()
rtf1.SelColor = &HFF0000
rtf1.SelText = „ABCD“
rtf1.SelColor = &HFFFF00
rtf1.SelText = „EFG“

'rtf1.Text = rtf1.Text & vbCrLf & „IJKLMN“
'rtf1.SelText = „IJK“
End Sub

Dim x As Integer, y As Integer
Dim ImgWidth As Integer
Dim ImgHeight As Integer
Dim FrmWidth As Integer
Dim FrmHeight As Integer

ImgWidth = Image2.Width
ImgHeight = Image2.Height
FrmWidth = Picture1.Width
FrmHeight = Picture1.Height

For x = 0 To FrmWidth Step ImgWidth
For y = 0 To FrmHeight Step ImgHeight
With Picture1
.PaintPicture Image2.Picture, x, y
End With
Next y
Next x
Image1.Refresh

Desweiteren wollte ich fragen, wie die Einstellung ist, das
eine aktive Form nicht verlassen werden kann bevor man zB OK
(Befehlsbutton) drückt?

Folgende Sub löst beim Unloaden des Forms aus:
Private Sub form_unload(cancel As Integer)
MsgBox „Beenden“
End Sub

Ausserdem habe ich ein kleines Bild, welches ich in eine Form
als Hintergrund laden möchte. Da das Bild aber sehr klein ist,
möchte ich es als Muster haben, d.h so viele Bilder
nebeneinander wie die Form groß ist. Ähnlich geht es ja auch
bei Hintergrundbild in Windows, wenn ein Bild zu klein ist.

Folgendes habe ich irgendwo aus dem Netz:
Dim x As Integer, y As Integer
Dim ImgWidth As Integer
Dim ImgHeight As Integer
Dim FrmWidth As Integer
Dim FrmHeight As Integer

ImgWidth = Image2.Width
ImgHeight = Image2.Height
FrmWidth = Picture1.Width
FrmHeight = Picture1.Height

For x = 0 To FrmWidth Step ImgWidth
For y = 0 To FrmHeight Step ImgHeight
With Picture1
.PaintPicture Image2.Picture, x, y
End With
Next y
Next x
Image1.Refresh

Wer kann helfen.

Mfg Werner

Gruß.Timo Engel

#3

Hallo

Hallo Werner,

habe ein RTF-Textfeld gewählt, weil ich den Text
unterschiedlich formatieren wollte. Nun sehen meine Zeilen mit
Zeilenumbruch wie folgt aus:
1.00 blabla blabla
1.00.00 blabla blabla usw.

Wie ihr schon sehen könnt, soll die Version mit Datum und
UpdateInfo da stehen. So, wie kriege ich die VersionsNr immer
in rot???

du kannst beliebige teile in einem RTF Textfeld einfaerben :smile:
Selektieren -> Farbe zuweisen , Fertig :smile:

kann man da in der Zeile zB 1-10. Zeichen rot machen???

Jups kann man :smile:

Desweiteren wollte ich eine Trennlinie zwischen die drei Texte
ziehen.
Aber denkste, die Linie liegt immer unter dem Textfeld??? Geht
das auch darüber, es soll nur eine Abtrennlinie sein.

Warum setzt du nicht mehrere RTF Textfelder Nebeneinander? Somit hast du keine Probleme mit der Farbzuweisung mehr :smile: Einfach mal ein wenig am aussehen rumspielen und dann schaut das auch gut aus.
Sicher gibt es noch eine Variante wo du Steuerlemente in ein anderes setzen kannst. Bsp. Progressbar in die Statusbar. Aber ob das mit linien in einem RTF Textfeld geht, muesste man probieren.
Ist aber rel. aufwendig und benötigt auch API Aufrufe.
Ansonsten faellt mir die Varianre des Zeichens | ein ( groesse von einen einzelnen zeichen kannst du ja einstellen :smile:
Eine Linie direkt kannst du nicht in ein RTF Textbox zeichen.
Du koenntest aber ein Linie als Bild zeichen und Bilder kannst du ohne weiteres in ein RTF TExtfeld einsetzen :smile:

Habe ich vielleicht das falsche Element gewählt um Texte
aufzulisten, nur weil ich es bunt will???

Nein im Gegenteil, genau das richitge :smile:

Desweiteren wollte ich fragen, wie die Einstellung ist, das
eine aktive Form nicht verlassen werden kann bevor man zB OK
(Befehlsbutton) drückt?

Dann wird die Sub Form_Unload(Cancel as integer ( glaub ich aufgerufen)

wenn du darin den Parameter Cancel wieder auf 1 setzt ( Cancel=1) so wird die Form nicht entladen!
Willst du wenn du in einer MDI Anwendung arbeitest verhindern das diese Form von einer anderen ueberdeckt wird, so kannst du mit der eigenschaft zorder dies einstellen :smile:

Ausserdem habe ich ein kleines Bild, welches ich in eine Form
als Hintergrund laden möchte. Da das Bild aber sehr klein ist,
möchte ich es als Muster haben, d.h so viele Bilder
nebeneinander wie die Form groß ist. Ähnlich geht es ja auch
bei Hintergrundbild in Windows, wenn ein Bild zu klein ist.

Imagebox mit dem index 0 erstellen. errechnen wie oft das bild reinpasst und dann über die load function weitere imageboxen nachladen und dieser das bild zuweisen. Du musst natuerlich dann die geladenen Imageboxen noch anordnen.

Wer kann helfen.

Mfg Werner

Ich habe dir mal ein paar lösungsvorschlaege geschrieben. Wenn da was für dich in betracht kommt und du hilfe benötigst sag einfach bescheid. Dann kann ich dir den quelltext posten, oder schick mir halt die Form mit ein par daten und ich integriere dir das dann :smile:

MFG Alex

#4

Danke
Hallo
OK mal sehen, was ich heute wieder weiss.
Das mit dem Form verlassen habe ich hinbekommen.
Es gibt den Befehl Form.Show vbModal oder so, der macht das.
Färben von Texten hat auch hingehauen mit RTF.Find und Startpunkt und Länge ohne! Zusatz wie rtfWholeWord sonst gings net.

Fehlt noch:

  • das mit der doofen Linie. Ich glaub ich lass es weg.
  • das Bild, danke für die Hilfe, frägt sich nur, ist es nicht
    einfacher, das Bild als Hintergrund in Windows zu laden und 1!
    neues Bild zu machen (mit PrintScreen), welches man reinlädt, oder
    ist das egal, wenn man für alles Programmierroutinen schreibt???
    Das frisst doch alles Speicher???

Wie kann ich das Bild dauerhaft in die Form als Hintergrund
verankern, ohne das ich es laden muß???

  • neues Problem: habe einen künstlichen Zeilenumbruch gemacht und eine
    Bildlaufleiste eingebunden. Nun habe ich keinen Zugriff auf die
    Leiste auch wenn das Programm läuft und ich aufgrund der Elemente
    runterscrollen müsste. Ich habe die Locked-Funktion auf True
    gesetzt, weil ich keinen Zugriff haben will.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#5

Bitte nochmal unter Danke reinschauen!!!
zzz

#6

| funktioniert nicht
Hallo
das Zeichen | funktioniert nicht als Trennungslinie im RTF-Textfeld.
Das scheint ein Sonderzeichen zu sein, meine Formatierungen gehen da verloren.

#7

Hallo
das Zeichen | funktioniert nicht als Trennungslinie im
RTF-Textfeld.
Das scheint ein Sonderzeichen zu sein, meine Formatierungen
gehen da verloren.

Mist :s aber ein versuch war es wert. Dann Zeichen ein Bild welches die Line darstellt. Diese Bild kannst du dann an der Position einfügen :smile:

MFG Alex