ASommer

Danke für deine Hilfe doch irgendwie bin ich zu blöd. Wie binde ich das ein? So habe ich es gemacht, nur ist dabei der Wert X = 0 Public Class Abfrage Public Shared Function TwipsToPixelsX( _ ByVal X As Double _ ) As Double End Function Private Sub Fom_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load MsgBox(TwipsToPixelsX(1200)) End Sub End Class Die MsgBox wirf aber den Wert 0 aus ??????

Danke der Hinweis ist genial, jetzt habe ich zumindestens verstanden warum das so ist! Aber da ich noch nicht so versiert bin in VB, kann mir jemand vielleicht helfen wie ich Twips in Pixel umrechnen kann? Ich würde dann gerne meine ganzen DB Einträge von Twips in Pixel ändern. Also wie schreibe ich es das das geht! Habe folgendes im www gefunden ' Umrechnung Twips nach Pixel xPixel = xTwips / Screen.TwipsPerPixelX ' horizontal yPixel = yTwips / Screen.TwipsPerPixelY ' vertikal ' Umrechnung Pixel nach Twips xTwips = xPixel * Screen.TwipsPerPixelX ' horizontal yTwips = yPixel * Screen.TwipsPerPixelY ' vertikal Nur wenn ich im Code bei VB 2005 = xTwips = xPixel * Screen.TwipsPerPixelX eingebe, dann sagt mir VB das es TwipsPixelX ist kein Member von System.Widows.Forms.Screen was mach ich falsche ?

Ne das kann nicht sein! In der oberen linken Ecke sind bei beiden X und Y = 0. Egal ob Access oder VB In der unteren rechten ecke des Bildes ist in VB x=800 y = 600 (800*600 also genau die Größe des Bildes) In Access x=11955 y = 8985 Also gibt es da wohl einen Unterschied! Aber was macht Acces bei MouseMove anders als MouseMove bei VB mit den Werten X und Y. Bei VB ist es also genau die Pixelposition Bei Access ??????? Von mir aus arbeite ich auch mit einem Umrechnungsfaktor aber welchen muss ich da nehmen.

Hallo Zusammen, ich habe ein kleines Problem! Ich habe in Access mal eine Anwendung geschrieben in der ich die Mouseposition auslese. Folgend der Code aus Access Private Sub Bild_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) PosX = X PosY = Y End Sub So jetzt arbeite ich an der Version 2.0 und ich realisiere das ganze mit VB 2008. Dort habe ich folgenden Code Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click PosX = MousePosition.X PosY= MousePosition.Y End Sub So jetzt zum Problem in Access habe ich z.b. für X den Wert 1600 in meiner neunen Aplication habe ich bei X den Wert z.B. 78. Warum ist in Access ein so hoher Wert und in VB ein so niedriger wert für die selbe Position der Mouse? Ich brauche gleiche Werte da X und Y in eine Datenbank gespeichert sind! Und beim Abrufen der Werte X und Y die gleiche Position auf dem Bild erscheinen soll. Danke für eure Hilfe