Nicht druckbare/darstellbare Zeichen 2

Computer: Software & Programmierung Visual Basic
#21

Hallo Reinhard,

so wie der Code unten steht läuft er problemlos durch :smile:))

Prima! Ist doch auch noch schneller als 2 Sekunden pro Zeichen. :smile:

Me in Vba scheint weniger und/oder andere Eigenschaften zu
kennen als in VB. „vbPixel“ ist wohl auch unbekannt.

Ja, klar. VBA kennt vieles nicht, was VB kennt. Dei größten Einschränkungen sind die fehlenden Handles und die fehlenden Steuerelementefelder.

Statt vbPixels kannst Du ja auch einfach ‚3‘ schreiben. Macht das Selbe, ist nur schwerer zu lesen.

Gruß Rainer

#22

Hallo Rainer,

so wie der Code unten steht läuft er problemlos durch :smile:))

Prima! Ist doch auch noch schneller als 2 Sekunden pro
Zeichen. :smile:

irgendwie bin ich mir grad nicht sicher ob du die Hochkommas im Code entdeckt hast.
Natürlich ist er schnell, er macht ja nicht das was er soll :frowning:

Me in Vba scheint weniger und/oder andere Eigenschaften zu
kennen als in VB. „vbPixel“ ist wohl auch unbekannt.

Ja, klar. VBA kennt vieles nicht, was VB kennt. Dei größten
Einschränkungen sind die fehlenden Handles und die fehlenden
Steuerelementefelder.

Statt vbPixels kannst Du ja auch einfach ‚3‘ schreiben.
Macht das Selbe, ist nur schwerer zu lesen.

Das da die vbPixel bemängelt werden ist ja korrekt, aber an sich ist die Fehlermeldung falsch.
Der Debugger sollte sinnvollerweise gleich sagen, daß er „Me.ScaleMode“ bemängelt, das kommt nämlich wenn man da die 3 einträgt: „unzulässige Benutzung einer Eigenschaft“ o.ä.

Gruß
Reinhard

#23

Hallo Reinhard,

irgendwie bin ich mir grad nicht sicher ob du die Hochkommas
im Code entdeckt hast.
Natürlich ist er schnell, er macht ja nicht das was er soll

ähmmm, nein nicht bemerkt.

Statt vbPixels kannst Du ja auch einfach ‚3‘ schreiben.
Macht das Selbe, ist nur schwerer zu lesen.

Das da die vbPixel bemängelt werden ist ja korrekt, aber an
sich ist die Fehlermeldung falsch.
Der Debugger sollte sinnvollerweise gleich
sagen, daß er „Me.ScaleMode“ bemängelt, das kommt nämlich wenn
man da die 3 einträgt: „unzulässige Benutzung einer
Eigenschaft“ o.ä.

OK, kannst Du denn den ScaleMode in der Entwicklungsumgebung auf Pixel stellen? Das muss ja nicht zur Laufzeit passieren. Der Vorteil war nur, daß ich das dann kontrollieren kann. :smile:

Also dann mal langsam. Malen wir erst mal ein schwarzes Quadrat in die linke obere Ecke.

Private Sub Form\_Load()
 Dim c As Integer, r As Integer
 Me.Show
 For r = 0 To 9
 For c = 0 To 9
 Me.PSet (c, r)
 Next
 Next
End Sub

Hast Du dann ein Quadrat in der Größe eines Zeichens in der linken oberen Ecke?

Wenn Nein …

Private Sub Form\_Load()
 Dim c As Integer, r As Integer
 Me.Show
 For r = 0 To 9
 For c = 0 To 9
 Me.PSet (c \* 15, r \* 15)
 Next
 Next
End Sub

… dann geht das eventuell? Dabei gehe ich davon aus, daß der Scalemode auf Twips steht und Scalemode = 3 ’ (Pixel) nicht verfügbar ist.

Gruß Rainer

#24

Hallo Reinhard,

Hallo Rainer,

OK, kannst Du denn den ScaleMode in der Entwicklungsumgebung
auf Pixel stellen? Das muss ja nicht zur Laufzeit passieren.
Der Vorteil war nur, daß ich das dann kontrollieren kann. :smile:

leider nein, ich habe nur diese Einstellungsmöglichkeiten der Form:

http://www.bilder-space.de/show.php?file=29.11FAYCsX…

Also dann mal langsam. Malen wir erst mal ein schwarzes
Quadrat in die linke obere Ecke.
Hast Du dann ein Quadrat in der Größe eines Zeichens in der
linken oberen Ecke?

Nein, Me.PSet gibt es nicht bei Me in Vba, In VB5 klappt das.

Gruß
Reinhard

#25

Hallo Reinhard,

http://www.bilder-space.de/show.php?file=29.11FAYCsX…

Also dann mal langsam. Malen wir erst mal ein schwarzes
Quadrat in die linke obere Ecke.
Hast Du dann ein Quadrat in der Größe eines Zeichens in der
linken oberen Ecke?

Nein, Me.PSet gibt es nicht bei Me in Vba, In VB5 klappt das.

das sieht nicht gut aus, so allmählich gehen mir für VBA die Ideen aus. Das Prinzip beruht darauf, auf ein Steuerelement erst die Schrift auszugeben und dann die Grafik zu bearbeiten. Bis jetzt haben wir bei VBA noch keine Stelle gefunden, an der Beides funktioniert. :frowning:

Ich probiere mal nächste Woche etwas, wenn ich Excel unter den Fingern habe.

Gruß Rainer