明天要答辩了【河北工程技术高等专科学校吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：26,086贴子：
明天要答辩了收藏
明天要答辩，该肿么办，好担心。
AutoTDS-V1型全自动热解吸仪是一款20位常温二次全自动热解吸仪，气路采....
有点担心……
过来人跟你说，嘛事没有
答辩是嘛意思啊
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或明天答辩啊【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：101,834贴子：
明天答辩啊收藏
tion Explicit' Logical FontPrivate Const LF_FACESIZE = 32Private Const LF_FULLFACESIZE = 64Private Const CLIP_DEFAULT_PRECIS = 0Private Const CLIP_CHARACTER_PRECIS = 1Private Const CLIP_STROKE_PRECIS = 2Private Const CLIP_MASK = &HFPrivate Const CLIP_LH_ANGLES = 16Private Const CLIP_TT_ALWAYS = 32Private Const CLIP_EMBEDDED = 128Private Const DEFAULT_QUALITY = 0Private Const DRAFT_QUALITY = 1Private Const PROOF_QUALITY = 2Private Const DEFAULT_PITCH = 0Private Const FIXED_PITCH = 1Private Const VARIABLE_PITCH = 2Private Const ANSI_CHARSET = 0Private Const DEFAULT_CHARSET = 1Private Const SYMBOL_CHARSET = 2Private Const SHIFTJIS_CHARSET = 128Private Const HANGEUL_CHARSET = 129Private Const CHINESEBIG5_CHARSET = 136Private Const OEM_CHARSET = 255' Font Families'Private Const FF_DONTCARE = 0
Don't care or don't know.Private Const FF_ROMAN = 16
Variable stroke width, serifed.' Times Roman, Century Schoolbook, etc.Private Const FF_SWISS = 32
Variable stroke width, sans-serifed.' Helvetica, Swiss, etc.Private Const FF_MODERN = 48
Constant stroke width, serifed or sans-serifed.' Pica, Elite, Courier, etc.Private Const FF_SCRIPT = 64
Cursive, etc.Private Const FF_DECORATIVE = 80 '
Old English, etc.' Font WeightsPrivate Const FW_DONTCARE = 0Private Const FW_THIN = 100Private Const FW_EXTRALIGHT = 200Private Const FW_LIGHT = 300Private Const FW_NORMAL = 400Private Const FW_MEDIUM = 500Private Const FW_SEMIBOLD = 600Private Const FW_BOLD = 700Private Const FW_EXTRABOLD = 800Private Const FW_HEAVY = 900Private Const FW_ULTRALIGHT = FW_EXTRALIGHTPrivate Const FW_REGULAR = FW_NORMALPrivate Const FW_DEMIBOLD = FW_SEMIBOLDPrivate Const FW_ULTRABOLD = FW_EXTRABOLDPrivate Const FW_BLACK = FW_HEAVYPrivate Const OUT_DEFAULT_PRECIS = 0Private Const OUT_STRING_PRECIS = 1Private Const OUT_CHARACTER_PRECIS = 2Private Const OUT_STROKE_PRECIS = 3Private Const OUT_TT_PRECIS = 4Private Const OUT_DEVICE_PRECIS = 5Private Const OUT_RASTER_PRECIS = 6Private Const OUT_TT_ONLY_PRECIS = 7Private Const OUT_OUTLINE_PRECIS = 8Private 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 * LF_FACESIZEEnd TypePrivate Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LogFont) As LongPrivate Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As LongPrivate Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As LongPrivate Const LOGPIXELSY = 90
Logical pixels/inch in YPrivate Declare Function GetDesktopWindow Lib "user32" () As Long
通用软件不合适,定做软件太昂贵,自己用vb.net开发太难,何不试试FoxTable?
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As LongPrivate Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As LongPrivate m_Font As StdFontPrivate m_hFont As LongPrivate m_Rotation As SinglePrivate Sub Class_Terminate()
' Clean-up created objects!!!
If m_hFont Then
Call DeleteObject(m_hFont)
Set m_Font = Nothing
End IfEnd SubPublic Property Set LogFont(ByVal NewFont As Font)
If m_hFont Then
Call DeleteObject(m_hFont)
m_hFont = 0
If NewFont Is Nothing Then
Set m_Font = Nothing
' Stash a copy of the passed object,
' to avoid a new reference to it.
Set m_Font = New StdFont
With m_Font
.Bold = NewFont.Bold
.Charset = NewFont.Charset
.Italic = NewFont.Italic
.Name = NewFont.Name
.Size = NewFont.Size
.Strikethrough = NewFont.Strikethrough
.Underline = NewFont.Underline
.Weight = NewFont.Weight
m_hFont = CreateLogFont
End IfEnd PropertyPublic Property Get LogFont() As Font
Set LogFont = m_FontEnd PropertyPublic Property Let Rotation(ByVal NewVal As Single)
If NewVal && m_Rotation Then
m_Rotation = NewVal
If m_hFont Then
Call DeleteObject(m_hFont)
m_hFont = 0
If Not (m_Font Is Nothing) Then
m_hFont = CreateLogFont
End IfEnd PropertyPublic Property Get Rotation() As Single
Rotation = m_RotationEnd PropertyPublic Property Get Handle() As Long
Handle = m_hFontEnd PropertyPrivate Function CreateLogFont() As Long
Dim lf As LogFont
Dim hWnd As Long
Dim hDC As Long
hWnd = GetDesktopWindow
hDC = GetDC(hWnd)
' All but two properties are very straight-forward,
' even with rotation, and map directly.
.lfHeight = -(m_Font.Size * GetDeviceCaps(hDC, LOGPIXELSY)) / 72
.lfWidth = 0
.lfEscapement = m_Rotation * 10
.lfOrientation = .lfEscapement
.lfWeight = m_Font.Weight
.lfItalic = m_Font.Italic
.lfUnderline = m_Font.Underline
.lfStrikeOut = m_Font.Strikethrough
.lfClipPrecision = CLIP_DEFAULT_PRECIS
.lfQuality = PROOF_QUALITY
.lfPitchAndFamily = DEFAULT_PITCH Or FF_DONTCARE
.lfFaceName = m_Font.Name & vbNullChar
' OEM fonts can't rotate, and we must force
' substitution with something ANSI.
.lfCharSet = m_Font.Charset
If .lfCharSet = OEM_CHARSET Then
If (m_Rotation Mod 360) && 0 Then
.lfCharSet = ANSI_CHARSET
' Only TrueType fonts can rotate, so we must
' specify TT-only if angle is not zero.
If (m_Rotation Mod 360) && 0 Then
.lfOutPrecision = OUT_TT_ONLY_PRECIS
.lfOutPrecision = OUT_DEFAULT_PRECIS
CreateLogFont = CreateFontIndirect(lf)
Call ReleaseDC(hWnd, hDC)End Function
得到一个包函正个桌面的DC然后写字。。。。。这是一个屏保程序？
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或你正在使用的浏览器版本过低，将不能正常浏览和使用知乎。}