Avatar billede hiks Nybegynder
02. juli 2003 - 17:31 Der er 2 kommentarer og
1 løsning

PictureBox, tekst og print

Hej eksperter...

Jeg fandt lige noget kode jeg kunne bruge på eksperten, som tidligere er besvaret men kan ikke helt selv finde ud af hvordan jeg skal bruge det i mit projekt.

Tidligere spørgsmål:
http://www.eksperten.dk/spm/124364

Jeg vil nu gerne også kunne skrive på mit billede i bunden af det problemet er bare at jeg tilføjer billeder ved hjælp af en knap og loader først et billede der.

Følgende kode bruger jeg nu:

Private Sub cmdTilfoj_Click()
   
    Load picTable(picTable.UBound + 1)
    With picTable(picTable.UBound)
        .Picture = LoadPicture("c:\billede.ico")
        .AutoRedraw = True
        .FontName = "Comic Sans MS" 'Font navn
        .FontSize = 20 'Font size
        .ForeColor = &HFF8080 'Font color
        .Left = Me.Width / 2 - .Width / 2
        .Top = Me.Height / 2 - .Height / 2
        .Visible = True
        .CurrentX = 0
        .CurrentY = 0
        .Tag = i + 1
    End With
 
End Sub

Hvordan får jeg skrevet i bunden af de pictureboxes der?

Metoden i det tidligere spørgsmål virker nemli ikke. Altså .print "la la"

på forhånd tak

hiks
Avatar billede sjh Nybegynder
02. juli 2003 - 19:36 #1
den her skulle kunne gøre det:


Private Sub cmdTilfoj_Click()
Dim i As Long
  Load picTable(picTable.UBound + 1)
  With picTable(picTable.UBound)
      .Picture = LoadPicture("c:\billede.ico")
      .AutoRedraw = True
      .FontName = "Comic Sans MS" 'Font navn
      .FontSize = 20 'Font size
      .ForeColor = &HFF8080 'Font color
      .Left = Me.Width / 2 - .Width / 2
      .Top = Me.Height / 2 - .Height / 2
      .Visible = True
      Call PBPrint(picTable(picTable.UBound), "Her skriver du din tekst.")
      .Tag = i + 1
  End With
End Sub

Public Sub PBPrint(ByVal PictureBox As Object, ByVal strText As String)
Dim lWidth As Single
Dim lHeight As Single
  With PictureBox
      lWidth = .TextWidth(strText) / 2      'Tekst brede delt med 2
      lHeight = .TextHeight(strText)        'Tekst højde
      .CurrentX = (.ScaleWidth / 2) - lWidth 'Center
      .CurrentY = (.ScaleHeight - lHeight)  'Buttom
      PictureBox.Print strText              'Print tekst
  End With
End Sub
Avatar billede hiks Nybegynder
02. juli 2003 - 19:57 #2
det er fandme for cool! takker, skraber og bukker!

/hiks
Avatar billede sjh Nybegynder
03. juli 2003 - 00:33 #3
:-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Seneste spørgsmål Seneste aktivitet
I går 10:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging