标题:只有想不到..没有做不到..
只看楼主
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
结帖率:94.12%
 问题点数:0 回复次数:7 
只有想不到..没有做不到..

它是一个图片框,可以随时放进一个图片(好比一个相框),如需要可以任意换一张,操作方便好用!
偶想到的是:
1、要在一个窗体上,放上多个这样的图片框;能做到吗?
2、图片框大小可以任意调整;可以实现吗?
3、图片框的位置也可以任意摆放;这个也许比较难,但应该也能实现;
各位大侠帮帮忙,这是一个很好的电子相册的方案啊!
希望能直接在附件上改进;
下面是该图片框源代码附件:

1xuiFwyK.rar (2.42 KB) 只有想不到..没有做不到..


搜索更多相关主题的帖子: 电子相册 源代码 图片 相框 
2006-11-20 22:14
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
得分:0 

顶一下

2006-11-21 18:54
simpson
Rank: 3Rank: 3
等 级:论坛游民
威 望:7
帖 子:863
专家分:17
注 册:2006-11-16
得分:0 

有思想
尽量自己先study,尽量自己尝试写程序遇到;困难大家会鼎立支持


全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]
2006-11-21 19:44
hanbingchong
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2006-10-24
得分:0 
正在学习,

2006-11-21 20:08
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
得分:0 

下面是两个段代码,能否与前面代码结合?实现以上功能?
1,控件随窗体大小而变:
Private Sub Form_Load()
'窗体高度等于屏幕高度的六分之一
Form1.Height = Screen.Height / 6
'窗体宽度等于屏幕宽度的六分之一
Form1.Width = Screen.Width / 6
End Sub

Private Sub Form_Resize()
Command1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

2,用鼠标拖动图框:
Dim x1 As Single
Dim y1 As Single
'开始拖动
Const begin_drag = 1

Private Sub Form_Activate()
Label1.Caption = " (" & Image1.Left & "," & Image1.Top & ")"
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Image1.Picture = Source
Form1.Image1.Picture = LoadPicture(App.Path & "\xj7005.jpg")
Image1.Move (X - x1), (Y - y1)
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
Image1.Drag begin_drag
Label1.Caption = " (" & Image1.Left & "," & Image1.Top & ")"
End Sub
源代码附件:

O2IzVnDz.rar (2.21 KB) 只有想不到..没有做不到..




6l9jKMy5.rar (2.16 KB) 只有想不到..没有做不到..

2006-11-22 12:49
oll
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-11-22
得分:0 
2006-11-22 12:54
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
????楼上?.

我的msn: myfend@
2006-11-22 13:37
jrs123
Rank: 2
等 级:论坛游民
威 望:1
帖 子:627
专家分:14
注 册:2006-9-5
得分:0 

那位出手帮一下?

2006-11-22 15:57



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-104321-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.091941 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved