利用API 实现 字符串的镜像(二)

原创 2004年09月16日 19:30:00

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

 

效果如下:


uva401 镜像字符串

题意:输入一串字符串,判断是回文字符,还是镜像字符,还是镜像字符,还是两者都不是 首先把所有镜像字符都预处理出来,然后保存到数组里,最后暴力判断即可 #include #include ...
  • cadongllas
  • cadongllas
  • 2016年09月03日 10:31
  • 232

判断镜像串和回文串

#include #include char deal[]="A 3 HIL JM O 2TUVWXY51SE Z 8 "; int main() { char a[100]={}...
  • wobuxiangWA
  • wobuxiangWA
  • 2017年01月18日 14:58
  • 261

字符串回文与镜像

题意:回文—从前往后读与从后往
  • NYNU_ACM
  • NYNU_ACM
  • 2014年09月28日 12:06
  • 925

UVa 401 Palindromes(镜像回文字符串)

 题意  给一个字符串 判定其是否为回文串和镜像串  回文串很好判断  镜像串对于每一个字符用数组保存它的镜像字符就行了  没有的就是空格 注意若字符串长度为奇数  中间那个字母必须是对称的才...
  • acvay
  • acvay
  • 2014年08月30日 09:28
  • 1076

Docker 镜像规范 v1.0.0

Docker 镜像规范 v1.0.0本文翻译自Docker Image Specification。本文翻译时,该规范为 v1.0.0 版本。镜像是关于 root 文件系统变更集的有序集合以及相应容器...
  • shimachao
  • shimachao
  • 2017年09月14日 22:44
  • 353

利用API 实现 字符串的镜像(一)

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long...
  • northwolves
  • northwolves
  • 2004年09月16日 17:33
  • 1916

利用API 实现 字符串的镜像

利用API 实现 字符串的镜像(一)  Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As L...
  • Chendy
  • Chendy
  • 2008年03月25日 15:30
  • 493

UVa401 Palindromes

原题:输入一个字符串,判断它是否为回文串以及镜像串。输入字符串保证不含数字0。所谓回文串,即反转后和原串相同,如abba和madam。所谓镜像串, 是指左右镜像后原串相同,如 2S 和 3AIAE. ...
  • DS_agent
  • DS_agent
  • 2016年10月04日 02:08
  • 365

镜像字的学习

要求上下对称;英文小写:c、k、o、x、 英文大写:B、C、D、E、H、I、K、O、X、 数字:0、1、3、8 1. 本身即为镜像字的字中文: 田,中,申, 英文: exceed ⇒ EXCEED e...
  • lanchunhui
  • lanchunhui
  • 2016年08月10日 19:55
  • 278

Android api 镜像站

Android中文API:http://www.android-doc.com/index.html Android development tools mirror.【镜像站】:http://and...
  • a18826132770
  • a18826132770
  • 2017年05月07日 13:26
  • 372
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:利用API 实现 字符串的镜像(二)
举报原因:
原因补充:

(最多只允许输入30个字)