利用API 实现 字符串的镜像
来源:互联网 发布:淘宝网页装修模板 编辑:程序博客网 时间:2024/06/06 11:48
利用API 实现 字符串的镜像(一)
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020
Private WithEvents pic1 As PictureBox
Private WithEvents pic2 As PictureBox
Sub Form_Load()
Me.Move 0, 0, 10200, 4000
Set pic1 = Controls.Add("vb.picturebox", "pic1", Me)
pic1.Visible = True
pic1.Move 0, 0, 5000, 2500
Set pic2 = Controls.Add("vb.picturebox", "pic2", Me)
pic2.Visible = True
pic2.Move 5000, 0, 5000, 2500
pic1.ScaleMode = 3
pic2.ScaleMode = 3
End Sub
Sub Form_Click()
pic2.CurrentX = 0
pic2.CurrentY = 0
pic2.FontSize = 120
pic2.ForeColor = vbRed
pic2.FontName = "隶书"
pic2.Print "镜像"
StretchBlt pic1.hdc, pic2.ScaleWidth, 0, -pic2.ScaleWidth, pic2.ScaleHeight, pic2.hdc, 0, 0, pic2.ScaleWidth, pic2.ScaleHeight, SRCCOPY
End Sub
利用API 实现 字符串的镜像(二)
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020
Private WithEvents pic1 As PictureBox
Sub Form_Load()
Me.Move 0, 0, 11000, 8500
Set pic1 = Controls.Add("vb.picturebox", "pic1", Me)
With pic1
.Visible = True
.Move 3600, 2700, 3600, 2700
.ScaleMode = 3
.Appearance = 0
.BackColor = Me.BackColor
.CurrentX = 0
.CurrentY = 0
.FontSize = 60
.ForeColor = vbBlue
.FontName = "隶书"
End With
End Sub
Sub Form_Click()
Dim w As Integer, h As Integer
pic1.Print "人之初" & vbCrLf & "性本善"
w = pic1.ScaleWidth
h = pic1.ScaleHeight
StretchBlt Me.hdc, w, h, -w, h, pic1.hdc, 0, 0, w, h, SRCCOPY
StretchBlt Me.hdc, 3 * w, h, -w, h, pic1.hdc, 0, 0, w, h, SRCCOPY
StretchBlt Me.hdc, w, h, w, -h, pic1.hdc, 0, 0, w, h, SRCCOPY
StretchBlt Me.hdc, w, 3 * h, w, -h, pic1.hdc, 0, 0, w, h, SRCCOPY
End Sub
- 利用API 实现 字符串的镜像
- 利用API 实现 字符串的镜像(一)
- 利用API 实现 字符串的镜像(二)
- 利用API 实现字符串表达式的计算
- 利用API 实现字符串表达式的计算
- 利用C#实现图片的垂直镜像
- 利用Swing的Api实现镜面效果
- 利用Android的Matrix类实现J2ME的drawRegion的镜像方法
- openstack-glance API 镜像管理的部分实现和例子
- 利用Dockerfile构建mysql镜像并实现数据的初始化及权限设置
- 利用非递归中序遍历实现二叉树的镜像翻转
- 利用android 的api实现 curd
- 利用中央气象台的天气预报API实现天气预报
- 利用LayoutMirroring来实现界面镜像布局
- 亚马逊AWS利用镜像实现无差异部署
- C#利用API,做像MSN 一样的右下角弹出窗体!
- C#利用API,做像MSN 一样的右下角弹出窗体!
- C#利用API,做像QQ,MSN 一样的右下角弹出窗体!
- 高精度整数除法
- C#中父窗口和子窗口之间实现控件互操作
- 在asp.net中单击清空TextBox中的内容
- .NET 中的对象序列化
- Config log4j
- 利用API 实现 字符串的镜像
- WEB PACS with JPIP
- javascript设计模式交流(四) ——Interpreter Pattern
- 线程的实现
- 你知道C#中main函数参数的用处吗?
- 网游“包身工”:我们是累并枯燥的哑巴
- javascript设计模式交流(五) ——Composite Pattern
- 法拉利340教程(详细教程)[转载]
- 发职位喽