vb6.0 图象旋转 php 图象处理函数 imagestring 函数的运用

vb6.0 图象旋转 php 图象处理函数 imagestring 函数的运用很多朋友对这方面很关心，我爱编程网整理了相关文章，供大家参考，一起来看一下吧！

本文目录一览：

• 1、vb6.0 图象旋转
• 2、php 图象处理函数 imagestring 函数的运用
• 3、php图片加字将字旋转位置

vb6.0 图象旋转

上面代码速度太慢，下面代码可快速实现图象旋转
一、新建一个模块，并复制下面代码到模块中：
Option Explicit
Type BITMAPINFOHEADER '40 bytes，这个大家可以看看BMP的格式
BmSize As Long
BmWidth As Long
BmHeight As Long
BmPlanes As Integer
BmBitCount As Integer
BmCompression As Long
BmSizeImage As Long
BmXPelsPerMeter As Long
BmYPelsPerMeter As Long
BmClrUsed As Long
BmClrImportant As Long
End Type

Type BITMAPINFO
BmHeader As BITMAPINFOHEADER
End Type
'下面是两个操作DIB的函数
Declare Sub GetDIBits Lib "GDI32" (ByVal hDC&, ByVal hBitmap&, ByVal nStartScan&, ByVal nNumScans&, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage&)
Declare Sub SetDIBits Lib "GDI32" (ByVal hDC&, ByVal hBitmap&, ByVal nStartScan&, ByVal nNumScans&, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage&)

Sub RotatePicDI(SrcPic As PictureBox, DestPic As PictureBox, A As Double)
Dim SrcInfo As BITMAPINFO, DesInfo As BITMAPINFO
Dim X&, Y&, CA As Double, SA As Double, nX&, nY&
Dim sW&, sH&, sW2&, sH2&, dW&, dH&, dW2&, dH2&
Const Pi = 0.017453292519943
CA = Cos(A * -1): SA = Sin(A * -1)
sW = SrcPic.ScaleWidth '源图
sH = SrcPic.ScaleHeight
dW = DestPic.ScaleWidth '目标图
dH = DestPic.ScaleHeight
sW2 = sW / 2: sH2 = sH / 2 '确定中心点坐标
dW2 = dW / 2: dH2 = dH / 2
SrcInfo.BmHeader.BmSize = 40
SrcInfo.BmHeader.BmWidth = sW
SrcInfo.BmHeader.BmHeight = -sH
SrcInfo.BmHeader.BmPlanes = 1
SrcInfo.BmHeader.BmBitCount = 32
SrcInfo.BmHeader.BmSizeImage = 3 * sW * sH
LSet DesInfo = SrcInfo
DesInfo.BmHeader.BmWidth = dW
DesInfo.BmHeader.BmHeight = -dH
DesInfo.BmHeader.BmSizeImage = 3 * dW * dH
ReDim SrcPix(0, sW - 1, sH - 1) As Long
ReDim DesPix(0, dW - 1, dH - 1) As Long
Call GetDIBits(SrcPic.hDC, SrcPic.Image, 0&, sH, SrcPix(0, 0, 0), SrcInfo, 0&)
For Y = 0 To dH - 1
For X = 0 To dW - 1
nX = CA * (X - dW2) - SA * (Y - dH2) + sW2
nY = SA * (X - dW2) + CA * (Y - dH2) + sH2
If nX > -1 And nY > -1 And nX < sW And nY < sH Then
DesPix(0, X, Y) = SrcPix(0, nX, nY)
End If
Next
Next
Call SetDIBits(DestPic.hDC, DestPic.Image, 0&, dH, DesPix(0, 0, 0), DesInfo, 0&)
DestPic.Picture = DestPic.Image
End Sub
二、在Form1中，函数调用举例：
Private Sub Command1_Click()
RotatePicDI Picture1, Picture1, Val(Text1.Text)
End Sub

php 图象处理函数 imagestring 函数的运用

可以用imagettftext来生成，支持truetype字体

array imagettftext ( resource image, float size, float angle, int x, int y, int color, string fontfile, string text )

image
图像资源。见 imagecreatetruecolor()。

size
字体大小。根据 GD 版本不同，应该以像素大小指定（GD1）或点大小（GD2）。

angle
角度制表示的角度，0 度为从左向右读的文本。更高数值表示逆时针旋转。例如 90 度表示从下向上读的文本。

x
由 x，y 所表示的坐标定义了第一个字符的基本点（大概是字符的左下角）。这和 imagestring() 不同，其 x，y 定义了第一个字符的左上角。例如 "top left" 为 0, 0。

y
Y 坐标。它设定了字体基线的位置，不是字符的最底端。

color
颜色索引。使用负的颜色索引值具有关闭防锯齿的效果。见 imagecolorallocate()。

fontfile
是想要使用的 TrueType 字体的路径。

根据 PHP 所使用的 GD 库的不同，当 fontfile 没有以 / 开头时则 .ttf 将被加到文件名之后并且会在库定义字体路径中尝试搜索该文件名。

当使用的 GD 库版本低于 2.0.18 时，一个空格字符 而不是分号将被用来作为不同字体文件的“路径分隔符”。不小心使用了此特性将会导致一条警告信息：Warning: Could not find/open font。对受影响的版本来说唯一解决方案就是将字体移动到不包含空格的路径中去。

很多情况下字体都放在脚本的同一个目录下。下面的小技巧可以减轻包含的问题。 <?php
// Set the enviroment variable for GD
putenv('GDFONTPATH=' . realpath('.'));

// Name the font to be used (note the lack of the .ttf extension)
$font = 'SomeFont';
?>

text
文本字符串。

可以包含十进制数字化字符表示（形式为：€）来访问字体中超过位置 127 的字符。UTF-8 编码的字符串可以直接传递。

如果字符串中使用的某个字符不被字体支持，一个空心矩形将替换该字符。

imagettftext() 返回一个含有 8 个单元的数组表示了文本外框的四个角，顺序为坐下角，右下角，右上角，左上角。这些点是相对于文本的而和角度无关，因此“左上角”指的是以水平方向看文字时其左上角。

例子 1. imagettftext() 例子

本例中的脚本将生成一个白色的 400x30 像素 PNG 图像，其中有黑色（带灰色阴影）Arial 字体写的“Testing...”。

<?php
// Set the content-type
header("Content-type: image/png");

// Create the image
$im = imagecreatetruecolor(400, 30);

// Create some colors
$white = imagecolorallocate($im, 255, 255, 255);
$grey = imagecolorallocate($im, 128, 128, 128);
$black = imagecolorallocate($im, 0, 0, 0);
imagefilledrectangle($im, 0, 0, 399, 29, $white);

// The text to draw
$text = 'Testing...';
// Replace path by your own font path
$font = 'arial.ttf';

// Add some shadow to the text
imagettftext($im, 20, 0, 11, 21, $grey, $font, $text);

// Add the text
imagettftext($im, 20, 0, 10, 20, $black, $font, $text);

// Using imagepng() results in clearer text compared with imagejpeg()
imagepng($im);
imagedestroy($im);
?>

php图片加字将字旋转位置

我爱编程网(https://www.52biancheng.com)小编还为大家带来php图片加字将字旋转位置的相关内容。

根据文字所在图片的位置方向，计算文字的位置。
php给图片添加文字水印，可控制位置，旋转，多行文字，主要包括php给图片添加文字水印可控制位置，旋转，多行文字使用实例、应用技巧、基本知识点总结和需要注意事项。 我爱编程网

以上就是我爱编程网为大家带来的vb6.0 图象旋转 php 图象处理函数 imagestring 函数的运用，希望能帮助到大家！更多相关文章关注我爱编程网：www.52biancheng.com

免责声明：文章内容来自网络，如有侵权请及时联系删除。