Print Screen + Edit
Last Updated: Sep 11 2007 22:22, Started by
lastbullet
, Jun 26 2007 08:10
·
0
#1
Posted 26 June 2007 - 08:10
Salut,
am nevoie de un program ceva mai special. Adica: o data lansat la apasarea tastei Print Screen sa faca PS la ecran, sa incarce in program imaginea iar eu sa pot adauga text pe aceasta imagine ce va fi printata ulterior. Am reusit oarecum sa realizez partea cu Print Screen-ul si cea de listare a pozei, dar am probleme la incarcarea pozei din clipboard in program si la adaugarea textului pe ea. Aveti ceva idei cum s-ar putea face? Mersi |
#2
Posted 26 June 2007 - 09:01
lastbullet, on Jun 26 2007, 09:10, said: Salut, am nevoie de un program ceva mai special. Adica: o data lansat la apasarea tastei Print Screen sa faca PS la ecran, sa incarce in program imaginea iar eu sa pot adauga text pe aceasta imagine ce va fi printata ulterior. Am reusit oarecum sa realizez partea cu Print Screen-ul si cea de listare a pozei, dar am probleme la incarcarea pozei din clipboard in program si la adaugarea textului pe ea. Aveti ceva idei cum s-ar putea face? Mersi Am reusit sa fac sa incarce si poza in aplicatie (intr-un PictureBox) dar am nevoie de un sfat pentru adaugarea textului pe poza respectiva. Stie cineva daca se poate adauga text pe un obiect dintr-un picturebox? |
#3
Posted 01 July 2007 - 13:47
old1 = Picture1.FillStyle 'nu stiu daca iti trebuie, e scos din-tro aplicatie mai mare a mea
old2 = Picture1.FillColor ' salveaza proprietatile Picture1.FillStyle = 1 Picture1.FillColor = 1 Picture1.CurrentX = 10 ' pozitia pentru text Picture1.CurrentY = 10 oldX1 = 10 oldY1 = 10 oldcolor = Picture1.ForeColor Picture1.ForeColor = textcolor Picture1.Print Text1.Text ' textul de scris Picture1.FillStyle = old1 ' pune la loc caracteristicile originale Picture1.FillColor = old2 Picture1.ForeColor = oldcolor Pentru salvare foloseste asa: SavePicture Picture1.Image, "D:\test.bmp" S-ar putea sa nu mearga (afiseaza textul, dar nu salveaza decit imaginea fara text). Mi se pare ca faza depinde de modul in care ai transferat imaginea in picturebox. Eu fac asa: Picture1.Picture = LoadPicture(CommonDialog1.FileName) Edited by queensoft, 01 July 2007 - 13:48. |
#4
Posted 02 July 2007 - 12:59
Mersi de ajutor dar nu merge, nu apare textul din textbox pe imagine. O sa mai caut. PS: imaginea nu o incarc cu Picture1.Picture = LoadPicture(CommonDialog1.FileName) ci cu Picture1.Picture = Clipboard.GetData(vbCFBitmap).
Si inca ceva, nu stiti de ce nu pot lista imaginea din picture box cu: Printer.PaintPicture Picture1.Picture, 0, 0 Edited by lastbullet, 02 July 2007 - 13:03. |
#5
Posted 16 August 2007 - 15:46
Trebuie sa mai pui inainte cateva chestii (nu stiu nici eu exact ce). Cam asa ceva (in Paint Event):
Dim MyBitmap As New Bitmap MyBitmap = Picture1.Picturesi mai departe nu stiu Edited by ..:: CLAW ::.., 16 August 2007 - 15:48. |
#6
Posted 11 September 2007 - 22:22
ncearca acest api
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long Private Const DT_BOTTOM = &H8 Private Const DT_CALCRECT = &H400 Private Const DT_CENTER = &H1 Private Const DT_LEFT = &H0 Private Const DT_NOCLIP = &H100 Private Const DT_NOPREFIX = &H800 Private Const DT_RIGHT = &H2 Private Const DT_SINGLELINE = &H20 Private Const DT_TABSTOP = &H80 Private Const DT_TOP = &H0 Private Const DT_VCENTER = &H4 Private Const DT_WORDBREAK = &H10+ constante |
Anunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users