vb里要在界面上做一条抛物线,该用什么控件?怎么弄出来?

作者&投稿:毛食 (若有异议请与网页底部的电邮联系)
vb中用什么控件可以做出这种界面?~

若只用vb自带控件
可使用list控件+frame框架控件
组合使用

2016.05.06我也遇到这样的情况(VB项目),即我拉动某组控件,可能是不留神,再次查看时发现这组控件不在显示区域了。
我的是一个Frame框,里面有好几个textbox,现在这整个frame不见了,不在显示区域了!着急!
咋办,经网络搜索发现提示,加上自已捉摸,终于实现了我“丢失”的控件显示返原了!
当前文件为form1.frm
1: 用文本方式打开form1.frm,里面全是文本内容
2:查找frame5(我的就是它不见了),定位后,修改它的left属于为0,top属性为0. 这样做相当于强行将frame5移动至左上角!事后发现,原来它的top和left值都相当大(可能是我拉的太用力了,飞偏了!哈)
3:保存文件。
4:关闭VB项目,再次打开!OK!!!祝好!
我这方法必定有效!无效退“款”^_^

Dim x As Double, p As Single

Private Sub Command1_Click()

  p = InputBox("p=", "请输入参数p的值", 2)

  Me.Picture1.Scale (-Me.Picture1.ScaleWidth / 2, Me.Picture1.ScaleHeight / 2)-(Me.Picture1.ScaleWidth / 2, -Me.Picture1.ScaleHeight / 2)

  Me.Picture1.Line (-Me.Picture1.ScaleWidth / 2, 0)-(Me.Picture1.ScaleWidth / 2, 0), vbRed

  Me.Picture1.Line (0, Me.Picture1.ScaleHeight / 2)-(0, -Me.Picture1.ScaleHeight / 2), vbRed

  Me.Timer1.Interval = 1

  x = Int(-Me.Picture1.ScaleWidth / 2)

  Me.Label2 = "p=" & p

End Sub


Private Sub Timer1_Timer()

  Me.Label1.Caption = "x=" & x

  If x < Me.Picture1.ScaleWidth / 2 Then

    Me.Picture1.PSet (x, x ^ 2 / (200 * 2 * p)), vbBlue

    x = x + 1

  Else

    Me.Timer1.Interval = 0

  End If

End Sub




excel用哪个公式可以使a列包含指定内容时在b列显示为1?
在 Excel 2007 中,可以用以下公式实现题述要求:=IF(OR(LEFT(A2,1)="牛",LEFT(A2,1)="羊"),1,0)公式的结果如下图示:公式结果的图示

双路由器连接的问题
将路由器2的两台电脑“本地连接”属性-internet协议(TCP\/IP)属性,设为“自动获得IP地址”。开关机后,如果发现路由器2的两台电脑不能正常上网,则:(1)进入路由器2的设置,重启路由器2,(2)路由器2重启成功后,禁用该电脑的“本地连接”,再开启。OK,电脑就可以正常上网了。上面经验存在一...

电脑突然自动关机,手动重启后直接进入了BIOS设置界面,键盘灯亮的,键盘...
里有可以支持的U盘启动盘时,会在屏幕上面显示进入U盘的系统安装界面。把U盘设置为第一启动顺位设备的方法2:开启电脑,根据开机第一个启动画面,在电脑最下方的显示的提示,不停地F9(也可能是F2或者F12),可进入快速启动设备选择项菜单,在菜单里选择:”USB“字样的设备,也可进入U盘启动引导。(进入...

我的电脑一直卡在LOGO界面怎么办?
这种情况需要从硬件方面和软件方面进行处理: 一般电脑开机就停留在LOGO品牌画面,或者显示完LOGO画面后就黑屏,不能进系统,一般遇上这种情况,你可以从二个方面来处理: 第一个方面:硬件方面的原因:比如硬盘和插槽接触不良,或者内存或者显卡与主板的插槽接触不良,都会出现这种现象,所以建义: 关闭电脑,拨掉电源,打开笔记本...

电脑是华硕B360M-PIXIU主板,关机后鼠标灯一直亮着,我想把它关了,在...
华硕主板的电脑关机之后鼠标灯还亮着是因为主板断电后USB接口仍为通电的状态,若需要在关机后鼠标灯熄灭,可在BIOS界面中进行以下操作:1、开机后点击F2键或DEL键进入BIOS界面;2、点击F7键进入Advanced Mode界面;3、将APM--ERP支持设置为开启(S4+S5)设置完成后点击F10键保存并退出BIOS,关机后鼠标的...

如何做XP系统登入界面?就是选用户名那个界面,要自己做的,不要网站上...
用Paint Shop或者Photoshop打开位图,可以发现还是黑的,这是因为XP的开机画面只能为16色.而我们都是在256色的环境下看,所以为了看到这些图像,我们需要导入16色的色板 这是Paint Shop的16色色板 16.rar SPAN> 这个是PhotoShop的16色色板 161.rar 里面的颜色你也可以进行替换,只要确定是16色就可以了.以...

flash做的连连看前加一个开始界面
方法:1:http:\/\/hanyeah.com\/blog\/post\/11%E7%AC%AC%E4%B8%80%E4%B8%AA%E5%B0%8F%E6%B8%B8%E6%88%8F.html 可以参考一下。这么做的话,第二次进入游戏的时候可能会有问题。方法2:开始界面做成一个影片剪辑,背景做成不透明或半透明的,和舞台一样大,放到舞台的最上层,盖住下面的...

华硕电脑开机卡在ASUS那个界面上怎么办
小提醒: 在传统模式的BIOS设定画面中,仅能透过键盘上的箭头键及Enter键进行选择及确认。a. 进入BIOS设定页面 b. 进行BIOS设定还原。进入[Save & Exit]页面(1), 选择[Restore Defaults](2)后并选择[Yes](3)。c. 确认开机硬盘是否正确。进入[Boot]页面(4),选择[Boot Option #1](5)并确认是否...

一个完整的UI设计,需要那些过程
当然还要在此基础上通过调研分析找到用户希望达到的交互效果,并且以流程确认下来。3、提示和引导用户:软件是用户的工具。因此应该由用户来操作和控制软件。软件响应用户的动作和设定的规则。对于用户交互的结果和反馈,提示用户结果和反馈信息,引导用户进行用户需要的下一步操作。4、一致性原则:软件中往往...

光从介质a射向介质b,如果要在a、b介质的分界面上发生全反射,那么必须满 ...
A、光从介质a射向介质b,要在a、b介质的分界面上发生全反射,则a是光密介质,b是光疏介质.故A正确.B、由上分析得知,a的折射率大于b的折射率,由v=cn 得知,光在介质a中的速度小于在介质b中的速度.故B错误.C、要发生全反射,则光的入射角必须大于或等于临界角.故C正确,D错误.故选...

南涧彝族自治县15612684187: 如何用vb画一条抛物线
阴食辛芩: Option Explicit Dim j As Single Dim record(1000) As Single Dim p As Single Private Sub Command1_Click() p = 4 Picture1.Cls Picture1.Scale (-200, 2000)-(2000, -2000) '定义坐标 For j = 0 To 250 record(j) = 20 * Sqr(2 * p * j) '抛物线公式Y^=2 * ...

南涧彝族自治县15612684187: VB中滚动条的控件在哪?怎么弄? -
阴食辛芩: 新建一个VB标准工程就有滚动条控件,再控件工具箱上.HScrollBar-水平滚动条;VScrollBar-垂直滚动条.

南涧彝族自治县15612684187: 用 VBA 编程 在 cad 中画一条抛物线:y=0.5*x*x+3 -
阴食辛芩: Sub pwx()'定义几个点 Dim pntO(2) As Double Dim pntA(2) As Double Dim pntB(2) As Double Dim pntC(2) As Double Dim pntD(2) As Double Dim pntE(2) As Double'设抛物线方程为:y=ax²+bx+c Dim a As Double Dim b As Double Dim c As ...

南涧彝族自治县15612684187: vb如何使用ocx -
阴食辛芩: 下面列出制作OCX控件的步骤: 一:新建OCX 打开VB 5.0选择新建工程在对话框中选择ActiveX 控件(如图一(map1.gif))打开后会见一空的文档这就是 OCX控件的初始界面.想看一看空OCX控件的效果吗?选择“添加工程”选中标准...

南涧彝族自治县15612684187: 请教一下.VB如何在PICTURE上用LINE方法画出两条坐标轴,并在交点位置显示出 (0,0) -
阴食辛芩: 若果你想把窗体的中心定义为坐标原点,怎么可以这样:form1.SVALE (-100,100)-(100,-100) '自定义坐标系 me.line (-100,0)-(100,0) ME.LINE (0,100)-(0,-100) CURREMTX=0 CURREMTY=0 PRINT "(0,0)"

南涧彝族自治县15612684187: 在VB中画线(急!) -
阴食辛芩: 画直线 为了在两个坐标点之间画一条直线,可使用 Line 方法的简单形式,其语法如下:[object.]Line [(x1, y1)]–(x2, y2)[, color]其中 Object 是可选择的;若省略,此方法将在代码所连接的窗体(当前窗体)上画线.第一对坐标也是可选的.就所...

南涧彝族自治县15612684187: VB中怎样使指定的Shape控件运动? -
阴食辛芩: 【Shape控件】可以沿着 【Line控件】所作的【斜线】运动吗?? 当然是可以的,不过你要先计算斜率再利用y=kx+b,计算直线上任意点的坐标Xp和Yp,令 Shape1.Top = Shape1.Top + YpShape1.Left = Shape1.Left + Xp 全部代码如下: Dim k...

南涧彝族自治县15612684187: vb中如何画曲线图? -
阴食辛芩: Option Explicit Private Sub Form_click() Cls Dim i, j As Single Me.Scale (-1, 10)-(25, -1) '定义坐标系,原点靠近左下角 Line (-1, 0)-(25, 0) '画x轴 Line (0, -1)-(0, 10) '画Y轴 For i = -1 To 25 Step 1 '画X轴刻度 If i <> 0 Then Line (i, 0)-(i, 0.2) CurrentX ...

南涧彝族自治县15612684187: 在Visual Basic中,语句Label1.Caption="提示"中的Label1是什么 -
阴食辛芩: lable1是对象名,是VB中用来分别不同的Lable控件的名字!Caption就是你需要在你编辑的画面上显示的名字.具体的说就是lable1是VB中编程时用的名字.caption是我们形象的说明他是干什么的,供我们自己参考,用于画面显示的文字.举例来说. 文本名为:用户名: 文本名为:密码: 用户名、密码就是用来供我们人来认识的.他们所对应的lable名是供VB程序区别.希望能帮到你!

南涧彝族自治县15612684187: 求助:怎么在word里面画抛物线 -
阴食辛芩: 如图所示的抛物线的绘制方法:1、单击插入----形状----线条----曲线工具;2、在页面上点击鼠标,向右水平移动鼠标到结束处再点击鼠标,绘制一条直线;3、在直线上单击鼠标右键,在弹出的快捷菜单中选择编辑顶点命令;4、在直线的中点处单击鼠标右键,在弹出的快捷菜单中选择添加顶点命令;5、用鼠标拖动添加的顶点,即可绘制出一条抛物线.

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网