JavaScript 不能做到
要做只能用组件
vb vc都可以
要做只能用组件
vb vc都可以
解决方案 »
- javascript时间字符串怎么转换比较?
- <div>里面没东西时,为什么document.getElementByID失效?
- javascript 一个关于panel的问题
- 动态添加的input里的数据如何获得?
- 有没有可以让firefox直接取ID号的办法
- JavaScript实现回退到上一页面, 求语句
- 我这样的网站能行吗?
- 本人新接触JavaScrip,哪位大侠能给界石一下这个函数是干什么用的?
- 求救: 我怎样才能正确打开这个网页?
- 怎样才能去掉close()后窗口不显示提示?(急求解)
- 请较这个表达式的意思
- 求浮动广告代码 类似http://blog.sina.com.cn/m/xujinglei下面的浮动广告
<img alt="Replacement for JVC GZ-MG36EK / GR-DV, GR-DVJ Series Camcorder Battery" src="http://202.134.103.120/uk_ebay_images/VJV005.jpg" width="233" >
</div>
<div style="margin:-80px 0 0 200px"><img src="images/star.gif"></div>关键在于第二个div的style="margin:-80px 0 0 200px",用来控制偏移的数值
edwardrong(明年-今日) 也是这个意思但为什么不把两张图片作成一张呢?
Imports System.Drawing.Drawing2DPublic Class ImgMerg
Public Shared Function MergedImage(ByVal innerImgPath As String, ByVal outerImgPath As String, ByVal mergImgPath As String) As Boolean
Try
Dim fi As System.IO.FileInfo = New System.IO.FileInfo(mergImgPath)
If fi.Directory.Exists = False Then
fi.Directory.Create()
End If Dim innerImg As Image = Image.FromFile(innerImgPath)
Dim outerImg As Image = Image.FromFile(outerImgPath) Dim b As New Bitmap(outerImg.Width, outerImg.Height, PixelFormat.Format16bppRgb555)
Dim g As Graphics = Graphics.FromImage(b)
g.Clear(Color.White) Dim p1(2) As Point
Dim p2(2) As Point
If outerImg.Width >= innerImg.Width Then
If outerImg.Height >= innerImg.Height Then
p1(0) = New Point((outerImg.Width - innerImg.Width) \ 2, (outerImg.Height - innerImg.Height) \ 2)
p1(1) = New Point((outerImg.Width + innerImg.Width) \ 2, (outerImg.Height - innerImg.Height) \ 2)
p1(2) = New Point((outerImg.Width - innerImg.Width) \ 2, (outerImg.Height + innerImg.Height) \ 2)
Else
p1(0) = New Point((outerImg.Width - innerImg.Width) \ 2, 0)
p1(1) = New Point((outerImg.Width + innerImg.Width) \ 2, 0)
p1(2) = New Point((outerImg.Width - innerImg.Width) \ 2, outerImg.Height)
End If
Else
If outerImg.Height >= innerImg.Height Then
p1(0) = New Point(0, (outerImg.Height - innerImg.Height) \ 2)
p1(1) = New Point(outerImg.Width, (outerImg.Height - innerImg.Height) \ 2)
p1(2) = New Point(0, (outerImg.Height + innerImg.Height) \ 2)
Else
p1(0) = New Point(0, 0)
p1(1) = New Point(outerImg.Width, 0)
p1(2) = New Point(0, outerImg.Height)
End If
End If p2(0) = New Point(0, 0)
p2(1) = New Point(outerImg.Width, 0)
p2(2) = New Point(0, outerImg.Height) g.DrawImage(innerImg, p1)
g.DrawImage(outerImg, p2) b.Save(mergImgPath)
outerImg.Dispose()
innerImg.Dispose()
Return True Catch ex As Exception
Return False
End Try '测试代码
'Dim innerImgPath As String = "c:\Winter.jpg"
'Dim outerImgPath As String = "c:\17.gif"
'Dim savePath As String = "C:\merg.jpg" 'If ImgMerg.MergedImage(innerImgPath, outerImgPath, savePath) = True Then
' Dim bMerg As New System.drawing.Bitmap(savePath)
'Else
' MsgBox("错误")
'End If
End FunctionEnd Class
http://www.cnblogs.com/guodaxia/archive/2006/06/08/420867.html