VB.NET 用OPENGL时求助

问题描述

根据教材我弄出了以下的代码并且成功绘图,但是这仅能在启动窗口时绘图。如果我要再绘一个图或者改成按一个按钮开始绘图应该怎么改?我试着直接加一个按钮复制了一下SimpleOpenGlContro1_Paint或者Form1_Load内的代码发现不管用。如果启动窗口时不执行SimpleOpenGlControl1.InitializeContexts()又会报错,启动窗口时是怎么触发SimpleOpenGlContro1_Paint的?ImportsTao.OpenGlPublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadSimpleOpenGlControl1.InitializeContexts()Gl.glClearColor(0.0F,0.0F,0.0F,0.0F)Gl.glViewport(0,0,SimpleOpenGlControl1.Width,SimpleOpenGlControl1.Height)Gl.glMatrixMode(Gl.GL_PROJECTION)Gl.glLoadIdentity()Gl.glOrtho(-10,10,-10,10,-10,10)Gl.glMatrixMode(Gl.GL_MODELVIEW)Gl.glLoadIdentity()EndSubPrivateSubSimpleOpenGlContro1_Paint(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.PaintEventArgs)HandlesSimpleOpenGlControl1.PaintGl.glClear(Gl.GL_COLOR_BUFFER_BITOrGl.GL_DEPTH_BUFFER_BIT)Gl.glPointSize(20)Gl.glBegin(Gl.GL_TRIANGLES)Gl.glColor3f(1,0,0)Gl.glVertex2f(-5,5)Gl.glColor3f(0,1,0)Gl.glVertex2f(5,5)Gl.glColor3f(0,0,1)Gl.glVertex2f(0,-5)Gl.glEnd()EndSubEndClass

解决方案

本帖最后由 saulchow 于 2015-04-09 15:12:13 编辑

时间: 2024-09-29 10:01:58

VB.NET 用OPENGL时求助的相关文章

[原创]vb.net 应用多线程时的注意事项(2)

问题描述 如下程序同步运行后返回不正确,应该返回300万,实际返回了400万.ImportsSystem.Collections.ConcurrentPublicClassClass1PrivateConCurrentBag1AsNewConcurrentBag(OfInteger)'在这里创建ConcurrentBag,运行结果发生错误.SubMySub()DimTask1AsNewTask(OfConcurrentBag(OfInteger))(AddressOfMyFunc)DimTask

linkerror-Qt5中用opengl时gluOrtho2D总是无法解析的外部符号?

问题描述 Qt5中用opengl时gluOrtho2D总是无法解析的外部符号? 试过了网上的各种方法,无果.错误如下:error LNK2019: unresolved external symbol _gluOrtho2D@16 referenced in function ""protected: virtual void __thiscall widget::initializeGL(void)"" (?initializeGL@widget@@MAEXXZ)

请教!!使用VB.net制作网站时,在datalist里面放了两个textbox,并要实现在textbox里面录入值,并加到数据库中。

问题描述 请教!!使用VB.net制作网站时,在datalist里面放了两个textbox,并要实现运行时在textbox里面录入值,并将值添加到数据库中.如图:[img=http://C:DocumentsandSettingsAdministrator.SA-DBA93C0E7E83桌面][/img]具体怎么实现??越祥细越好.先谢过了! 解决方案 解决方案二:图片没放上去,也就是一个数据绑定,后跟一个TEXTBOX空白框,再跟个数据绑定,后跟一个TEXTBOX空白框.

安装-求教 vb怎么调用opengl啊?

问题描述 求教 vb怎么调用opengl啊? 下载了opengl提供的都是 c++的安装方法 支持vb呢 安装方式和vb 一样么 解决方案 OpenGL 调用部分 解决方案二: 你可以在百度上找一下,看有没有工具箱直接调用的 解决方案三: 你可以在百度上找一下,看有没有工具箱直接调用的

VB.NET2010 操作数据库时出错“不支持关键字: “date source”。”

问题描述 VB.NET2010操作数据库时出错"不支持关键字:"datesource"."出错问题如图所示请帮忙讲解如错原因.如何修改.大体讲一下原理.或扩展知识.谢谢了.代码为:PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimConnstringAsString="DateSource=.SQLEXPRES

VB.NET DataSet DataRow使用求助?

问题描述 在C#中学会使用DataSetDatetable在VB.Net2005中aryline(i)=information(i)这行报错求高手解答?错误1重载决策失败,原因是没有可访问的"Item"能够不经收缩转换即可被调用:'PublicDefaultPropertyItem(columnNameAsString)AsObject':与参数"columnName"匹配的参数从"Long"类型转换为"String"类型.'

实现VB中打开图像文件时的预览功能

前一阵有人在VB专家门诊中提出一个问题,如何在VB中实现打开图像文件的预览,虽然给出了300分 的高分,回答着却寥寥无几.我在参照了DELPHI的源代码后在VB中实现了其部分图像预览功能,在中文 WINDOWS98 SE下测试通过. 从MSDN中可以知道调用文件打开通用对话框需调用API 函数GetOpenFileName,原形如下: BOOL GetOpenFileName( LPOPENFILENAME lpofn );// lpofn 为初始化数据结构的地址 其参数lpofn指向类型为OP

vb 连接access数据库时出现的问题,急急急!!!!!!!!!!!!!!!!!!!!!

问题描述 PrivateSubMDIForm_Initialize()DimmpathAsStringmpath=App.Path//进入access数据库存放的目录IfRight(mpath,1)<>""Thenmpath=mpath+""Data1.DatabaseName=mpath+"vbdata.mdb"//使用data控件Data1.RecordSource="access"EndSubPrivateS

VB,打开文件时,出现名称冲突

今天一打开文件,出现了这个问题,检查了下发现,frmCheckShangJiInfo中,有个C是大小写不一样的.我确定之后,又为窗体在属性窗口中,粘贴了一遍窗体文件的名字,想把他们改成一样的,可是再打开窗体还是这样子. 后来,找到了两种解决办法: 一,为窗体重新命名       在属性窗口中,将frmCheckShangJiInfo改名为frmCheckShangJiInfo222,保存后,再打开,就没事了,然后再改回原来的值frmCheckShangJiInfo.        很幸运的是,我