| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 579 人关注过本帖
标题:请教关于坐标标题竖写得问题
只看楼主 加入收藏
my_dear2002
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2005-4-7
收藏
 问题点数:0 回复次数:1 
请教关于坐标标题竖写得问题
各位大侠:我有一个问题向大家请教,就是如何使坐标轴得标题竖写,我用VB画得坐标,比如说:"K100Q500"让它竖着显示就是让他旋转90度,不是将文字一个一个竖着排列,而是每个文字都要旋转,谢谢
搜索更多相关主题的帖子: 坐标 
2005-04-07 14:50
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

'Example Name:Rotate Font 'In general section 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 Const LF_FACESIZE = 32 Private 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(LF_FACESIZE) As Byte End Type 'In form Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net

Dim RotateMe As LOGFONT 'Set graphic-mode to 'persistent graphic' Me.AutoRedraw = True Me.ScaleMode = 3 'Rotate degrees Deg = 90 'Size (in points) SIZE = 20 'Set the rotation degree RotateMe.lfEscapement = Deg * 10 'Set the height of the font RotateMe.lfHeight = (SIZE * 20) / Screen.TwipsPerPixelY 'Create the font rFont = CreateFontIndirect(RotateMe) 'Select the font n the Form's device context Curent = SelectObject(Me.hdc, rFont) 'Print some text ... Me.CurrentX = 10 Me.CurrentY = 200 Me.Print "垂直文字效果:-)" End Sub 是这样吗?


天津网站建设 http://www./
2005-04-07 22:58
快速回复:请教关于坐标标题竖写得问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016889 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved