VB 如何实现畸形界面(不规则窗体)???

2011-10-14 03:07:27 1.5k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

在ArcMap中查找面状要素畸形部分在ArcMap中可以通过图形边界长与等面积的圆周长之比查找畸形面状要素比值越大，图形与圆形相差越大, 形状越不规则在要素图层新建一个双精度的字段，把比值计算到这个字段将字段降序排列，很快就可以找到畸形面状要素在计算字段时『解析程序』选择『VB』表达式框中输入 [Shape_Length] /Sqr ( [Shape_Area] * 3.14 * 4 ) 但有时面状要素整体并不畸形，只是有部分边界比较狭长使用上面的方法计算的比值可能会偏小如果要优先找这一类的图形可以使用下面的方法阅读详情

实现畸形界面,因为把图放上去之后显示出来是长方形边框,旁边的空白都显示出来了,要怎样才能只显示图,隐藏掉边框和边框中的空白,这才是我最麻烦的问题....
如图：
http://hi.csdn.net/attachment/201110/14/5269501_13185756854toz.jpg

大家看得到旁边有透明的边框是吧,编译后还是有,我设成了没边框可边缘还是有长形空白,无奈...技术过低啊!之前发过一贴因图不能显示,内容不详,现重发一下

...全文

VirtualLab初学者教程-1.用户界面目录前言一、VirtualLab Fusion简介1.软件2.内置工具箱：二、用户界面认识1.上方菜单栏2.右侧面主窗口3.底部窗口附前言感觉做VirtualLab的资料不是特别多，可能用的朋友也比较少吧，笔者最近也因为大创需要刚刚开始入门，把网上有的英文资料整理了一下，加了一点自己的内容发出来希望帮助更多在学习中的朋友，有用词不当之处还请多多包涵。一、VirtualLab Fusion简介因为是第一讲，简单啰嗦一下软件本身，参考官方介绍。 1.软件 VirtualLab是由德国LightTran 阅读详情

༺彼岸花开༻

多媒体 807 成员 8,274 内容

+ 关注 + 加入社区

切换为时间正序

王二.麻子 2014-05-08

打赏
举报

难道图片框的autosize没有设置为true？

IamDeane 2014-04-03

打赏
举报

使用PNG图片格式，然后使用GDI+绘制出来就可以了

熊孩子开学喽 2013-01-28

打赏
举报

Look: http://download.csdn.net/detail/WallesCai/795601

m2mocn 2013-01-17

打赏
举报

看到上面有个下载例子。。。很实用

༺彼岸花开༻ 2011-11-09

打赏
举报

我是要用图片控件来实现,但试过使用以上几位兄台的方法不行,研究了下,还没能实现,我正在找相关的教程,也许是本人技术真的不太好,不过我学东西从不灰心,呵呵,不管如何,谢谢各位兄弟给小弟的支持,让小弟也学到了你们的闪光点........

chinaboyzyq 2011-11-03

打赏
举报

嗷嗷叫的老马 2011-11-02

打赏
举报

波导终结者 2011-11-02

打赏
举报

[Quote=引用 10 楼 myjian 的回复:]
给你发的代码已经实现你的要求了.

还有什么问题?
[/Quote]
要现成的，完整的，兼容所有平台的，调试好的，能运行的，不报错的，万能的，拿来可以直接双击的，一行代码也不用写就可以实现任何需求的

嗷嗷叫的老马 2011-11-02

打赏
举报

给你发的代码已经实现你的要求了.

还有什么问题?

蘫人 2011-11-02

打赏
举报

eNet.com 找找都有视频教程。

༺彼岸花开༻ 2011-10-31

打赏
举报

谢谢各位的帮忙,但我还未解决,希望高人能做个教程................

crackdung 2011-10-17

打赏
举报

http://www.skincrafter.com/

熊孩子开学喽 2011-10-17

打赏
举报

异形窗体.

小允 2011-10-16

打赏
举报







Private Sub Command1_Click()

    SetWindowLong hwnd, (-20), GetWindowLong(hwnd, (-20)) Or &H80000

    SetLayeredWindowAttributes Me.hwnd, &HFFFFFF, 0, &H1  '&HFFFFFF这是背景的颜色，SetLayeredWindowAttributes透明的语句

End Sub



Private Sub Command2_Click()

End

End Sub



Private Sub Form_Load()



End Sub

模块代码：

 Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

  Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

 Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

嗷嗷叫的老马 2011-10-14