589 lines
22 KiB
VB.net
589 lines
22 KiB
VB.net
Imports System.Drawing
|
|
Imports System.Drawing.Printing
|
|
Imports System.Math
|
|
Imports System.IO.Ports
|
|
Public Class lb_left
|
|
|
|
Private Const Pi = 3.14159265358979
|
|
Private Structure LOGFONT
|
|
Dim lfHeight As Long
|
|
Dim lfWidth As Long
|
|
Dim lfEscapement As Long
|
|
Dim lfOrientation As Long
|
|
Dim lfWeight As Long
|
|
Dim lfItalic As Byte
|
|
Dim lfUnderline As Byte
|
|
Dim lfStrikeOut As Byte
|
|
Dim lfCharSet As Byte
|
|
Dim lfOutPrecision As Byte
|
|
Dim lfClipPrecision As Byte
|
|
Dim lfQuality As Byte
|
|
Dim lfPitchAndFamily As Byte
|
|
Dim lfFacename As String
|
|
End Structure
|
|
|
|
Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (ByVal lpLogFont As LOGFONT) As Long
|
|
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
|
|
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
|
|
|
|
|
|
Private WithEvents pDoc As New PrintDocument()
|
|
Dim SelCon As New ArrayList
|
|
Dim onlyOne As Label
|
|
|
|
|
|
|
|
Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As Integer) As Integer
|
|
Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer
|
|
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
|
|
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Integer) As Integer
|
|
Public Shared QHD As IntPtr
|
|
Public Const SRCCOPY As Integer = &HCC0020
|
|
Public Shared hSDC, hMDC As Integer
|
|
Public BMP As Bitmap
|
|
Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer
|
|
Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Integer, ByVal nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As Integer) As Integer
|
|
Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Integer) As Integer
|
|
Private Declare Function DeleteObject Lib "GDI32" (ByVal hObj As Integer) As Integer
|
|
Public Declare Function GetDesktopWindow Lib "user32" () As Integer
|
|
Public Declare Function GetForegroundWindow Lib "user32" () As Integer
|
|
|
|
|
|
Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage
|
|
|
|
|
|
'Static StartChar As Int32 '인쇄를 시작할 문자의 위치번호
|
|
Dim PrintFont As New Font("굴림", 10)
|
|
Dim Po As PointF, PrintArea As SizeF, PrintRect As RectangleF
|
|
|
|
'인쇄할 종이의 영역설정
|
|
With pDoc.DefaultPageSettings
|
|
PrintArea.Height = .PaperSize.Height - .Margins.Top - .Margins.Bottom
|
|
PrintArea.Width = .PaperSize.Width - .Margins.Left - .Margins.Right
|
|
Po.X = .Margins.Left
|
|
Po.Y = .Margins.Top
|
|
End With
|
|
|
|
'종이를 길게 눞혀 인쇄할 때 폭과 높이를 수정
|
|
If pDoc.DefaultPageSettings.Landscape Then
|
|
Dim Temp As Int32
|
|
Temp = PrintArea.Height
|
|
PrintArea.Height = PrintArea.Width
|
|
PrintArea.Width = Temp
|
|
End If
|
|
|
|
'인쇄할 조건들을 설정
|
|
Dim Lines As Int32 = CInt(PrintArea.Height / PrintFont.Height)
|
|
PrintArea.Height = Lines * PrintFont.Height
|
|
PrintRect = New RectangleF(Po, PrintArea)
|
|
Dim fmt As New StringFormat(StringFormatFlags.LineLimit)
|
|
'Dim RemainedText As String = Mid(TextBox1.Text, StartChar + 1)
|
|
|
|
'Dim LinesFilled, CharsFitted As Int32
|
|
'e.Graphics.MeasureString(RemainedText, PrintFont, PrintArea, fmt, CharsFitted, LinesFilled)
|
|
'위 프로시져의 결과로 CharsFitted, LinesFilled 값이 얻어진다. (ByRef변수)
|
|
|
|
'인쇄
|
|
'e.Graphics.DrawString(RemainedText, PrintFont, Brushes.Black, PrintRect, fmt)
|
|
e.Graphics.DrawImage(Me.PictureBox2.Image, 0, 0)
|
|
|
|
Dim Tobj As Label
|
|
For Each obj As Control In Me.Panel1.Controls
|
|
If obj.GetType.Name.ToUpper = "LABEL" Then
|
|
Tobj = CType(obj, Label)
|
|
e.Graphics.DrawString(Tobj.Text, PrintFont, Brushes.Black, Tobj.Left, Tobj.Top)
|
|
|
|
|
|
End If
|
|
Next
|
|
|
|
|
|
|
|
'StartChar += CharsFitted
|
|
|
|
'인쇄할 부분이 남았으면 페이지 이동
|
|
'If StartChar < TextBox1.Text.Length Then e.HasMorePages = True : Exit Sub
|
|
'e.HasMorePages = False : StartChar = 0 'StartChar는 Static으로 선언하였으므로 꼭 초기화 해주어야
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
|
|
|
|
|
|
Dim RECT As New Rectangle(22, 24, 310, 491)
|
|
Me.PictureBox2.Image = CaptureScreen(RECT)
|
|
|
|
Dim Preview As New PrintPreviewDialog()
|
|
Try
|
|
Preview.Document = pDoc
|
|
Preview.ShowDialog()
|
|
|
|
Catch EX As Exception
|
|
MsgBox(EX.Message)
|
|
End Try
|
|
End Sub
|
|
Public Shared Function CaptureScreen() As Image
|
|
Return CaptureScreen(New Rectangle(0, 0, My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height))
|
|
|
|
End Function
|
|
|
|
Public Shared Function CaptureScreen(ByVal CaptureArea_ As Rectangle) As Image
|
|
|
|
Dim hBMP, hBMPOld As Integer
|
|
Dim oBackground As Image
|
|
|
|
'QHD = GetDesktopWindow '//바탕화면핸들을 구한다.
|
|
QHD = GetForegroundWindow
|
|
|
|
|
|
|
|
|
|
'QHD = FindWindow(vbNullString, "Qring")
|
|
'QHD = FindWindow(vbNullString, "제목 없음 - 메모장")
|
|
If QHD = 0 Then
|
|
Return Nothing
|
|
Exit Function
|
|
End If
|
|
|
|
hSDC = GetDC(QHD)
|
|
hMDC = CreateCompatibleDC(hSDC)
|
|
|
|
hBMP = CreateCompatibleBitmap(hSDC, CaptureArea_.Width, CaptureArea_.Height)
|
|
|
|
hBMPOld = SelectObject(hMDC, hBMP)
|
|
BitBlt(hMDC, 0, 0, CaptureArea_.Width, CaptureArea_.Height, hSDC, CaptureArea_.X, CaptureArea_.Y, SRCCOPY)
|
|
hBMP = SelectObject(hMDC, hBMPOld)
|
|
|
|
oBackground = Image.FromHbitmap(New IntPtr(hBMP))
|
|
DeleteObject(hBMP)
|
|
DeleteDC(hSDC)
|
|
DeleteDC(hMDC)
|
|
|
|
Return oBackground
|
|
End Function
|
|
|
|
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
|
Dim PageSetup As New PageSetupDialog()
|
|
PageSetup.Document = pDoc
|
|
PageSetup.PageSettings = pDoc.DefaultPageSettings
|
|
If PageSetup.ShowDialog = Windows.Forms.DialogResult.OK Then pDoc.DefaultPageSettings = PageSetup.PageSettings
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
|
|
Dim Print As New PrintDialog()
|
|
Print.Document = pDoc
|
|
If Print.ShowDialog = Windows.Forms.DialogResult.OK Then pDoc.Print()
|
|
End Sub
|
|
|
|
|
|
Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
|
|
|
|
Dim A As PictureBox = Me.PictureBox2
|
|
|
|
'If SelCon Is Nothing Then Exit Sub
|
|
'For Each A As Control In SelCon
|
|
Select Case e.KeyCode
|
|
Case Keys.Up
|
|
If e.Shift Then
|
|
A.Height -= Val(Me.tb_pixelsize.Text)
|
|
Else
|
|
A.Top -= Val(Me.tb_pixelpos.Text)
|
|
End If
|
|
Case Keys.Down
|
|
If e.Shift Then
|
|
A.Height += Val(Me.tb_pixelsize.Text)
|
|
Else
|
|
A.Top += Val(Me.tb_pixelpos.Text)
|
|
End If
|
|
Case Keys.Left
|
|
If e.Shift Then
|
|
A.Width -= Val(Me.tb_pixelsize.Text)
|
|
Else
|
|
A.Left -= Val(Me.tb_pixelpos.Text)
|
|
End If
|
|
Case Keys.Right
|
|
If e.Shift Then
|
|
A.Width += Val(Me.tb_pixelsize.Text)
|
|
Else
|
|
A.Left += Val(Me.tb_pixelpos.Text)
|
|
End If
|
|
|
|
End Select
|
|
'Next
|
|
|
|
e.Handled = False
|
|
End Sub
|
|
|
|
|
|
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
For Each obj As Control In Me.Panel1.Controls
|
|
'MsgBox(obj.GetType.Name.ToString)
|
|
If obj.GetType.Name.ToUpper = "LABEL" Then
|
|
AddHandler CType(obj, Label).MouseDown, AddressOf Con_Click
|
|
'AddHandler CType(obj, Label).Move, AddressOf con_move
|
|
AddHandler CType(obj, Label).DoubleClick, AddressOf con_dclick
|
|
'AddHandler CType(obj, Label).MouseMove, AddressOf con_move
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub con_dclick(ByVal sender As Object, ByVal e As System.EventArgs)
|
|
Dim A As Label = sender
|
|
Dim Val As String = InputBox("변경할 값을 입력하세요" & vbCrLf & vbCrLf & "데이터베이스에는 적용되지 않습니다", "변경", A.Text)
|
|
A.Text = IIf(Val = vbNullString, A.Text, Val)
|
|
End Sub
|
|
Private Sub con_move(ByVal sender As Object, ByVal e As System.EventArgs)
|
|
'ViewProperty(sender)
|
|
End Sub
|
|
|
|
Private Sub Con_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
|
|
On Error Resume Next
|
|
If SelCon Is Nothing Then
|
|
SelCon.Add(sender)
|
|
Else
|
|
If e.Button = Windows.Forms.MouseButtons.Right Then
|
|
For Each obj As Label In SelCon
|
|
If obj.Name = CType(sender, Label).Name Then '//삭제된다.
|
|
SelCon.Remove(obj)
|
|
Exit Sub
|
|
Else '//추가된다.
|
|
SelCon.Add(sender)
|
|
End If
|
|
Next
|
|
Else '//재셋팅
|
|
SelCon.Clear()
|
|
SelCon.Add(sender)
|
|
End If
|
|
End If
|
|
ViewProperty(sender)
|
|
onlyOne = sender
|
|
|
|
|
|
End Sub
|
|
Private Sub ViewProperty(ByVal sender As Label)
|
|
Me.lb_sel.Text = "선택된 개체명 : " & sender.Name & " 값=" & sender.Text
|
|
Me.tb_height.Text = sender.Height
|
|
Me.tB_width.Text = sender.Width
|
|
|
|
Me.tb_left.Text = sender.Left
|
|
Me.tb_top.Text = sender.Top
|
|
|
|
Me.tb_foncol.Text = Hex(sender.ForeColor.ToArgb)
|
|
Me.tb_fontbakcol.Text = Hex(sender.BackColor.ToArgb)
|
|
|
|
End Sub
|
|
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
|
|
Dim A As New System.Text.StringBuilder
|
|
If Not SelCon Is Nothing Then
|
|
For Each c As Label In SelCon
|
|
A.Append(c.Name.ToString & ",")
|
|
Next
|
|
Me.lb_selcon.Text = "선택된컨트롤:" & A.ToString
|
|
End If
|
|
If Not onlyOne Is Nothing Then
|
|
Me.lb_sel.Text = "개체명:[" & onlyOne.Name & "]=" & onlyOne.Text & " 위치=" & onlyOne.Location.ToString & " 크기=" & onlyOne.Size.ToString
|
|
Me.lb_b.ForeColor = IIf(onlyOne.Font.Bold, Color.Red, Color.Black)
|
|
Me.lb_i.ForeColor = IIf(onlyOne.Font.Italic, Color.Red, Color.Black)
|
|
Me.lb_s.ForeColor = IIf(onlyOne.Font.Strikeout, Color.Red, Color.Black)
|
|
Me.lb_u.ForeColor = IIf(onlyOne.Font.Underline, Color.Red, Color.Black)
|
|
Me.lb_font.Text = onlyOne.Font.Name & "(" & onlyOne.Font.Size & ")"
|
|
Me.Button6.Enabled = True
|
|
Me.Button7.Enabled = True
|
|
Me.Button8.Enabled = True
|
|
|
|
Me.Button9.Enabled = True
|
|
Me.Button10.Enabled = True
|
|
Me.Button11.Enabled = True
|
|
Me.Button12.Enabled = True
|
|
Me.Button13.Enabled = True
|
|
Me.Button14.Enabled = True
|
|
Me.Button15.Enabled = True
|
|
Me.Button16.Enabled = True
|
|
Me.cb_autosize.Enabled = True
|
|
|
|
Else
|
|
Me.Button6.Enabled = False
|
|
Me.Button7.Enabled = False
|
|
Me.Button8.Enabled = False
|
|
|
|
Me.Button9.Enabled = False
|
|
Me.Button10.Enabled = False
|
|
Me.Button11.Enabled = False
|
|
Me.Button12.Enabled = False
|
|
Me.Button13.Enabled = False
|
|
Me.Button14.Enabled = False
|
|
Me.Button15.Enabled = False
|
|
Me.Button16.Enabled = False
|
|
Me.cb_autosize.Enabled = False
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
|
|
End Sub
|
|
|
|
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
|
|
'Me.PictureBox1.Visible = IIf(CType(sender, CheckBox).Checked, True, False)
|
|
|
|
If CType(sender, CheckBox).Checked Then
|
|
Me.Panel1.BackgroundImage = Image.FromFile(Me.tb_picfile.Text)
|
|
Else
|
|
Me.Panel1.BackgroundImage = Nothing
|
|
End If
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click
|
|
Me.Panel1.BackgroundImage = Image.FromFile(Me.tb_picfile.Text)
|
|
End Sub
|
|
|
|
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
|
|
Dim A As New OpenFileDialog
|
|
A.ShowDialog()
|
|
Me.tb_picfile.Text = A.FileName
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
|
|
Select Case CType(sender, ComboBox).SelectedIndex
|
|
Case 0
|
|
Me.Panel1.BackgroundImageLayout = ImageLayout.None
|
|
|
|
Case 1
|
|
Me.Panel1.BackgroundImageLayout = ImageLayout.Center
|
|
Case 2
|
|
Me.Panel1.BackgroundImageLayout = ImageLayout.Stretch
|
|
Case 3
|
|
Me.Panel1.BackgroundImageLayout = ImageLayout.Tile
|
|
Case 4
|
|
Me.Panel1.BackgroundImageLayout = ImageLayout.Zoom
|
|
Case Else
|
|
Me.Panel1.BackgroundImageLayout = ImageLayout.None
|
|
End Select
|
|
End Sub
|
|
|
|
|
|
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
|
|
If onlyOne Is Nothing Then Exit Sub
|
|
|
|
Dim A As New ColorDialog
|
|
If A.ShowDialog() = Windows.Forms.DialogResult.OK Then
|
|
onlyOne.ForeColor = A.Color
|
|
Me.tb_foncol.Text = Hex(A.Color.ToArgb)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
|
|
Dim A As New ColorDialog
|
|
If A.ShowDialog() = Windows.Forms.DialogResult.OK Then
|
|
onlyOne.BackColor = A.Color
|
|
Me.tb_fontbakcol.Text = Hex(A.Color.ToArgb)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub cb_autosize_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_autosize.CheckedChanged
|
|
onlyOne.AutoSize = IIf(CType(sender, CheckBox).Checked, True, False)
|
|
End Sub
|
|
|
|
Private Sub ApplyPosSize()
|
|
If onlyOne Is Nothing Then Exit Sub
|
|
|
|
Me.onlyOne.Left = IIf(IsNumeric(Me.tb_left.Text), Val(Me.tb_left.Text), Me.onlyOne.Left)
|
|
Me.onlyOne.Top = IIf(IsNumeric(Me.tb_top.Text), Val(Me.tb_top.Text), Me.onlyOne.Top)
|
|
Me.onlyOne.Width = IIf(IsNumeric(Me.tB_width.Text), Val(Me.tB_width.Text), Me.onlyOne.Width)
|
|
Me.onlyOne.Height = IIf(IsNumeric(Me.tb_height.Text), Val(Me.tb_height.Text), Me.onlyOne.Height)
|
|
End Sub
|
|
|
|
Private Sub tb_left_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_left.TextChanged, tb_top.TextChanged, tB_width.TextChanged, tb_height.TextChanged
|
|
ApplyPosSize()
|
|
End Sub
|
|
|
|
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
|
|
If onlyOne Is Nothing Then Exit Sub
|
|
If Not IsNumeric(Me.tb_pixelpos.Text) Then Exit Sub
|
|
onlyOne.Left -= Val(Me.tb_pixelpos.Text)
|
|
|
|
End Sub
|
|
|
|
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
|
|
If onlyOne Is Nothing Then Exit Sub
|
|
If Not IsNumeric(Me.tb_pixelpos.Text) Then Exit Sub
|
|
onlyOne.Left += Val(Me.tb_pixelpos.Text)
|
|
End Sub
|
|
|
|
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
|
|
If onlyOne Is Nothing Then Exit Sub
|
|
If Not IsNumeric(Me.tb_pixelpos.Text) Then Exit Sub
|
|
onlyOne.Top -= Val(Me.tb_pixelpos.Text)
|
|
End Sub
|
|
|
|
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
|
|
If onlyOne Is Nothing Then Exit Sub
|
|
If Not IsNumeric(Me.tb_pixelpos.Text) Then Exit Sub
|
|
onlyOne.Top += Val(Me.tb_pixelpos.Text)
|
|
End Sub
|
|
|
|
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
|
|
If onlyOne Is Nothing Then Exit Sub
|
|
If Not IsNumeric(Me.tb_pixelsize.Text) Then Exit Sub
|
|
onlyOne.Height -= Val(Me.tb_pixelsize.Text)
|
|
End Sub
|
|
|
|
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
|
|
If onlyOne Is Nothing Then Exit Sub
|
|
If Not IsNumeric(Me.tb_pixelsize.Text) Then Exit Sub
|
|
onlyOne.Height += Val(Me.tb_pixelsize.Text)
|
|
End Sub
|
|
|
|
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
|
|
If onlyOne Is Nothing Then Exit Sub
|
|
If Not IsNumeric(Me.tb_pixelsize.Text) Then Exit Sub
|
|
onlyOne.Width -= Val(Me.tb_pixelsize.Text)
|
|
End Sub
|
|
|
|
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
|
|
If onlyOne Is Nothing Then Exit Sub
|
|
If Not IsNumeric(Me.tb_pixelsize.Text) Then Exit Sub
|
|
onlyOne.Width += Val(Me.tb_pixelsize.Text)
|
|
End Sub
|
|
|
|
Private Sub ShowMsg(ByVal Message As String)
|
|
Me.lb_msg.Text = "▷ " & Message & Space(1) & TimeOfDay.ToString
|
|
End Sub
|
|
|
|
|
|
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
|
|
Dim B As New FontDialog
|
|
B.Font = onlyOne.Font
|
|
B.ShowDialog()
|
|
onlyOne.Font = B.Font
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
|
|
|
|
Me.PictureBox2.Image = Obj2img(Me)
|
|
Me.PictureBox2.BorderStyle = BorderStyle.None
|
|
Me.PictureBox2.SizeMode = PictureBoxSizeMode.AutoSize
|
|
Me.PictureBox2.Refresh()
|
|
|
|
End Sub
|
|
|
|
|
|
Private Function Obj2img(ByVal objTarget As Control) As Image
|
|
Dim gObject As Graphics = objTarget.CreateGraphics 'Drawing.Graphics.FromHwnd(objTarget.Handle)
|
|
|
|
Dim MyImage As Image = New Bitmap(objTarget.Width, objTarget.Height, gObject)
|
|
Dim gSave As Graphics = Graphics.FromImage(MyImage)
|
|
Dim dcObject As IntPtr = gObject.GetHdc
|
|
Dim dcSave As IntPtr = gSave.GetHdc
|
|
'파일로저장할떄쓴다.Dim sFileName As String = "C:\aaa.jpg"
|
|
BitBlt(dcSave.ToInt32, 0, 0, objTarget.Width, objTarget.Height, dcObject.ToInt32, 0, 0, 13369376)
|
|
|
|
gObject.ReleaseHdc(dcObject)
|
|
gSave.ReleaseHdc(dcSave)
|
|
|
|
dcObject = Nothing
|
|
dcSave = Nothing
|
|
gObject.Dispose()
|
|
gSave.Dispose()
|
|
Return MyImage
|
|
'MyImage.Save(sFileName, ImageFormat.Jpeg)
|
|
End Function
|
|
|
|
|
|
|
|
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
|
|
'폰트객체를 가지고 폰트를 생성한다음 필요한조작(회전및크기)을 행한후 그래픽개체를 이미지로 바꾼다.
|
|
'Dim BMP As New Bitmap
|
|
|
|
Dim Af As Font = New Font(Label3.Font.FontFamily, Label3.Font.Size * 10, Label3.Font.Style)
|
|
Dim z As LOGFONT
|
|
z.lfFacename = "굴림"
|
|
z.lfHeight = 400
|
|
z.lfOrientation = 1
|
|
z.lfWidth = 0
|
|
|
|
' Af = Drawing.Font.FromLogFont(z)
|
|
|
|
Dim FS As Size
|
|
FS.Width = (Label3.Font.Size * 100) '/ 15
|
|
FS.Height = (Label3.Font.Size * 200) '/ 15
|
|
|
|
MsgBox(FS.ToString)
|
|
|
|
Dim BMP As New Bitmap(Me.Panel1.Width, Me.Panel1.Height, Imaging.PixelFormat.Format32bppArgb)
|
|
Dim G As Graphics = Graphics.FromImage(BMP) '//기본그래픽개체생성(사이즈는 위에처 맞췄다)
|
|
'이제 그래픽개체에 글자를 찍고 그것을 IMAGE로 전환한뒤 반환픽쳐박스에 적용해주면된다.
|
|
G.DrawString("TEST", Af, Brushes.Black, 3, 3)
|
|
'G.ScaleTransform(100, 100)
|
|
G.Dispose()
|
|
|
|
|
|
|
|
|
|
' MsgBox(PictureBox2.Image.Size.ToString, MsgBoxStyle.Information, PictureBox2.Left & "/" & Me.PictureBox2.Top)
|
|
My.Application.DoEvents()
|
|
Me.PictureBox2.Left = Me.Panel1.Left
|
|
Me.PictureBox2.Top = Me.Panel1.Top
|
|
Me.PictureBox2.Image = BMP
|
|
Me.PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage
|
|
Me.PictureBox2.Refresh()
|
|
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
|
|
End Sub
|
|
|
|
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
|
|
Me.UpdateZOrder()
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
|
|
Dim A As New Size(Me.PictureBox2.Size.Width + 2, Me.PictureBox2.Size.Height + 2)
|
|
Me.PictureBox2.Size = A
|
|
|
|
End Sub
|
|
|
|
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
|
|
Me.PictureBox2.SizeMode = PictureBoxSizeMode.AutoSize
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
|
|
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp
|
|
Me.Text = e.Delta & e.Button.ToString
|
|
End Sub
|
|
|
|
Private Sub PictureBox2_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseWheel
|
|
Me.Text = e.Delta.ToString & e.Button.ToString
|
|
End Sub
|
|
|
|
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
|
|
'MyPicture1.MyRefresh()
|
|
'MyPicture1.Refresh()
|
|
'MyPicture1.Update()
|
|
|
|
End Sub
|
|
End Class
|
|
|
|
|