vb 实现图片的旋转
要求添加个按钮
功能： 点击让
Picture1里的图片顺时针旋转90度，请大家帮帮忙啊 救救急。
Dim tempPicture As IPictureDisp
Private Sub Command1_Click()
Dim path As String
path = "E:\project\TEMP\000.jpg" '图片不一定是JPG格式
' Picture1.Picture = LoadPicture(path)
Set tempPicture = LoadPicture(path)
PictureToCenter tempPicture, Picture1
End Sub
Public Sub PictureToCenter(Pic As Picture, PicBox As PictureBox)
Dim PicH As Long, PicW As Long
Dim PicBoxW As Long, PicBoxH As Long
Dim PicRate As Single, PicBoxRate As Single
Dim NewH As Long, NewW As Long
If Not Pic Is Nothing Then
PicBoxH = PicBox.ScaleHeight
PicBoxW = PicBox.ScaleWidth
PicBoxRate = PicBoxW / PicBoxH
PicW = PicBox.ScaleX(Pic.Width, vbHimetric, vbTwips)
PicH = PicBox.ScaleY(Pic.Height, vbHimetric, vbTwips)
PicRate = PicW / PicH
' PicBox.Picture = Nothing
&nbs
相关问答：
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
