Vb高手帮帮忙吧~~万分感激！！！！

2010-01-19 01:15:53 201 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

catherine_spmc 墨衍会员 · AI 创作全网分发关注 + 加入社区

【课程设计】TCP/IP 应用环境中服务器的部署与实现本项目旨在通过搭建一个虚拟网络环境，实现软路由系统的配置和服务器的搭建与测试。具体包括安装虚拟机 VMWare Workstation，安装 Windows Server 2003 操作系统，配置软路由系统（包括双网卡安装、协议配置和测试），以及搭建并测试 DHCP 服务、DNS 服务、WWW 服务、FTP 服务和 SMTP/POP3 服务。阅读详情

我现在初学，自己想做一些小程序，现在出现两个问题：
1：如何用鼠标左键按下来移动窗口，松开手，停止移动。
2：如何把几按钮控件嵌到一个大的按钮上，点击大按钮的任意一处，可以同时移动~
小女子在这感激不尽：）

...全文

基于航天宏图PIE-SAR软件的高分三号（GF-3）SAR影像的预处理软件官网航天宏图—国内领先的卫星运营与应用服务提供商（官网）一、数据导入数据导入-GF-3-根据模式选择参数文件导入解压后GF-3数据的XML文件通道自动填充设置输出目录确定等待，加载图像、自动构建金字塔二、复数数据转换强度/幅度特征是SAR影像最主要的特征之一，基于SAR强度/幅度影像可以提取地物目标信息，因此需要将SAR复数数据转换为SAR强度/幅度数据。导入输入影像，设置参数类型，输出目录、命名、类型；漫长的等待三、多视为提... 阅读详情

catherine_spmc

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

cbm6666 2010-01-20

打赏
举报

1. 添加 Text1 Picture1　试着拖动它们

Option Explicit
'*****************************************移动窗体
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Call DragKj(Me.hwnd)
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Call DragKj(Picture1.hwnd)
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Call DragKj(Text1.hwnd)
End Sub

Public Sub DragKj(HwndKj As Long)
On Error Resume Next
Call ReleaseCapture
Call SendMessage(HwndKj, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub

'***************************************************
2 如何把几按钮控件嵌到一个大的按钮上　呵呵...思路有点怪

按钮不是容器它无法装载其它控件, 也许你该换个思路几个按钮控件嵌到一个PictureBox里面

'添加 Command1 Command2 Command3 Command4

hafizding 2010-01-20

打赏
举报

给我分吧，呵呵！

chinaboyzyq 2010-01-19

打赏
举报

1、
Dim t, tx, ty
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
t = True
tx = X
ty = Y
End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If t = True Then
Form1.Top = Y + Form1.Top - ty
Form1.Left = X + Form1.Left - tx
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
t = False
End Sub

2、用picturebox做容器其它按钮的容器，并且它做大按钮。

catherine_spmc 2010-01-19

打赏
举报

能不能说明白点呢？我初学，对库里的函数都不怎么熟悉

gz284596265 2010-01-19

打赏
举报

第一个问题可以相应鼠标的move事件定义一个参数与鼠标左键按下关联
如果鼠标按下再执行移动操作通过关联窗体的位置和鼠标指针的位置来实现窗体位置的移动

帝企鹅已被占用 2010-01-19

打赏
举报

Cathy, 详细点。

Vb高手帮帮忙吧~~万分感激！！！！

相关推荐