字体旋转及坐标变换？？？？

Question

1 怎么将字旋转90度（竖着）写在picture上 、打印出来
2 可不可以将vb中的坐标x变为我的坐标中的y ,y变为x                                谢谢~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~``

Answer 1

Private Sub Command_View_Click()
     Dim Throw As Long
     Me.Picture1.Cls
     RF.lfEscapement = Int(Val(Me.txtEscapement.Text)) * 10
    'ÉèÖÃÎı¾Çãб¶È
     'ÉèÖÃ×ÖÌå²ÎÊý
     NewFont = CreateFontIndirect(RF)
     '´´½¨ÐÂ×ÖÌå
     OldFont = SelectObject(Me.Picture1.hdc, NewFont)
     'Ó¦ÓÃÐÂ×ÖÌå
     x = Me.Picture1.ScaleWidth / 2
     y = Me.Picture1.ScaleHeight / 2
     'Ñ¡ÔñÏÔʾÎı¾µÄÆðµã
     Throw = TextOut(Me.Picture1.hdc, x, y, Me.Text_Input.Text, _
                Len(Me.Text_Input.Text))
     'ÏÔʾÎı¾
     NewFont = SelectObject(Me.Picture1.hdc, OldFont)
     'Ñ¡Ôñ¾É×ÖÌå
     Throw = DeleteObject(NewFont)
     'ɾ³ýÐÂ×ÖÌå
End SubPrivate Sub Form_Load()
     SetBkMode Me.Picture1.hdc, 1
     RF.lfHeight = 50
     'ÉèÖÃ×Ö·û¸ß¶È
     RF.lfWidth = 10
     'ÉèÖÃ×Ö·ûƽ¾ù¿í¶È
     RF.lfEscapement = 0
     'ÉèÖÃÎı¾Çãб¶È
     RF.lfWeight = 400
     'ÉèÖÃ×ÖÌåµÄÇáÖØ
     RF.lfItalic = 0
     '×ÖÌå²»Çãб
     RF.lfUnderline = 0
     '×ÖÌå²»¼ÓÏ»®Ïß
     RF.lfStrikeOut = 0
     '×ÖÌå²»¼Óɾ³ýÏß
     RF.lfOutPrecision = 0
     'ÉèÖÃÊä³ö¾«¶È
     RF.lfClipPrecision = 0
     'ÉèÖüô¼­¾«¶È
     RF.lfQuality = 0
     'ÉèÖÃÊä³öÖÊÁ¿
     RF.lfPitchAndFamily = 0
     'ÉèÖÃ×ÖÌåµÄ×Ö¾àºÍ×ÖÌå×å
     RF.lfCharSet = 0
     'ÉèÖÃ×Ö·û¼¯
     RF.lfFaceName = "Arial" + Chr(0)
     'ÉèÖÃ×ÖÌåÃû³Æ
     
     Me.txtEscapement.Text = RF.lfEscapement / 10
End Sub

Answer 2

这里有例子
http://www.yesky.com/20011026/202294.shtml

Answer 3

这里有例子
http://www.yesky.com/20011026/202294.shtml

Answer 4

这里有例子
http://www.yesky.com/20011026/202294.shtml

Answer 5

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Text"
   ClientHeight    =   3255
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3690
   LinkTopic       =   "Form1"
   ScaleHeight     =   3255
   ScaleWidth      =   3690
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Height          =   1695
      Left            =   360
      ScaleHeight     =   109
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   189
      TabIndex        =   5
      Top             =   240
      Width           =   2895
   End
   Begin VB.CommandButton Command_View 
      Caption         =   "View"
      Height          =   375
      Left            =   2520
      TabIndex        =   4
      Top             =   2640
      Width           =   735
   End
   Begin VB.TextBox txtEscapement 
      Height          =   375
      Left            =   1320
      TabIndex        =   3
      Top             =   2640
      Width           =   1095
   End
   Begin VB.TextBox Text_Input 
      Height          =   375
      Left            =   1320
      TabIndex        =   1
      Top             =   2160
      Width           =   1935
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "倾斜角度:"
      Height          =   180
      Left            =   360
      TabIndex        =   2
      Top             =   2760
      Width           =   810
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "显示内容:"
      Height          =   180
      Left            =   360
      TabIndex        =   0
      Top             =   2280
      Width           =   810
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function CreateFontIndirect Lib "gdi32" _
                Alias "CreateFontIndirectA" _
                (lpLogFont As LOGFONT) _
                As Long
                
Private Declare Function SelectObject Lib "gdi32" _
                (ByVal hdc As Long, _
                ByVal hObject As Long) _
                As Long
                
Private Declare Function TextOut Lib "gdi32" _
                Alias "TextOutA" _
                (ByVal hdc As Long, _
                ByVal x As Long, _
                ByVal y As Long, _
                ByVal lpString As String, _
                ByVal nCount As Long) _
                As Long
                
Private Declare Function DeleteObject Lib "gdi32" _
                (ByVal hObject As Long) _
                As Long
                
Private Declare Function SetBkMode Lib "gdi32" _
                (ByVal hdc As Long, _
                ByVal nBkMode As Long) _
                As LongPrivate Type LOGFONT
        lfHeight As Long
        lfWidth As Long
        lfEscapement As Long
        lfOrientation As Long
        lfWeight As Long
        lfItalic As Byte
        lfUnderline As Byte
        lfStrikeOut As Byte
        lfCharSet As Byte
        lfOutPrecision As Byte
        lfClipPrecision As Byte
        lfQuality As Byte
        lfPitchAndFamily As Byte
        lfFaceName As String * 50
End TypeDim RF As LOGFONT
Dim NewFont As Long
Dim OldFont As LongPrivate Sub Command_View_Click()
     Dim Throw As Long
     Me.Picture1.Cls
     RF.lfEscapement = Int(Val(Me.txtEscapement.Text)) * 10
    '设置文本倾斜度
     '设置字体参数
     NewFont = CreateFontIndirect(RF)
     '创建新字体
     OldFont = SelectObject(Me.Picture1.hdc, NewFont)
     '应用新字体
     x = Me.Picture1.ScaleWidth / 2
     y = Me.Picture1.ScaleHeight / 2
     '选择显示文本的起点
     Throw = TextOut(Me.Picture1.hdc, x, y, Me.Text_Input.Text, _
                Len(Me.Text_Input.Text))
     '显示文本
     NewFont = SelectObject(Me.Picture1.hdc, OldFont)
     '选择旧字体
     Throw = DeleteObject(NewFont)
     '删除新字体
End SubPrivate Sub Form_Load()
     SetBkMode Me.Picture1.hdc, 1
     RF.lfHeight = 30
     '设置字符高度
     RF.lfWidth = 10
     '设置字符平均宽度
'     RF.lfEscapement = 0
'     '设置文本倾斜度
'     RF.lfWeight = 400
'     '设置字体的轻重
'     RF.lfItalic = 0
'     '字体不倾斜
'     RF.lfUnderline = 0
'     '字体不加下划线
'     RF.lfStrikeOut = 0
'     '字体不加删除线
'     RF.lfOutPrecision = 0
'     '设置输出精度
'     RF.lfClipPrecision = 0
'     '设置剪辑精度
'     RF.lfQuality = 0
'     '设置输出质量
'     RF.lfPitchAndFamily = 0
'     '设置字体的字距和字体族
'     RF.lfCharSet = 0
'     '设置字符集
     RF.lfFaceName = "Arial" + Chr(0)
'     '设置字体名称
     
     Me.txtEscapement.Text = RF.lfEscapement / 10
End Sub

Answer 6

【VB声明】
  Private Declare Function ScreenToClient Lib "user32" Alias "ScreenToClient" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long【说明】
  判断屏幕上一个指定点的客户区坐标 【返回值】
  Long，非零表示成功，零表示失败 【参数表】
  hwnd -----------  Long，一个窗口的句柄，该窗口定义了要使用的客户区坐标系统  lpPoint --------  POINTAPI，屏幕坐标系统中包含了屏幕点的结构。这个函数会随同相应的客户区坐标（由hwnd决定）载入结构