温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
Geek/Asperger Syndrome
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(3988)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_083066',
blogTitle:'VB.Net:如何实现Aero玻璃界面？',
blogAbstract:'Vista与Windows 7中的Aero界面是它们最吸引人的新功能之一，它可以实现大面积的透明界面。但是我们在编程中却不能完全利用这个功能。虽然VB.Net 2005以后的控件已经开始支持XP和Vista的风格了，但是窗体的界面却无法完全实现Aero的毛玻璃效果，只有最外面的一层窗口标题栏是透明的。网上确实有关于如何用.Net语言来实现这一效果的，但那是C#，而不是VB.Net。要VB.Net语言来实现？在网上找不到。难道为了这个功能非得去学C#才行吗？虽然网上有将C#代码转换为VB.Net代码，但它要求完整的代码结构，而网上提供的往往只是一段代码，并不是完整的一个Class，所以也难实现。本文将讲述如何用vb.net做这个界面。\r\nAero毛玻璃界面之所以无法在vb.',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:1,
publishTime:1,
permalink:'blog/static/',
commentCount:8,
mainCommentCount:6,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'Geek/Asperger Syndrome',
hmcon:'0',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}最近发现编译器一个求解三角函数的Bug,求解决,该如何处理
最近发现编译器一个求解三角函数的Bug,求解决,该如何处理
发布时间： 11:48:05
编辑：www.fx114.net
本篇文章主要介绍了"最近发现编译器一个求解三角函数的Bug,求解决,该如何处理"，主要涉及到最近发现编译器一个求解三角函数的Bug,求解决,该如何处理方面的内容，对于最近发现编译器一个求解三角函数的Bug,求解决,该如何处理感兴趣的同学可以参考一下。
最近发现编译器一个求解三角函数的Bug,求解决,该如何处理最近发现编译器一个求解三角函数的Bug,求解决1、我在使用VS2010的VB.NET提供的Math类的三角函数的运算的时候,发现对绝对值大于9.77E+18的数据进行三角函数运算时无能为力.比如Math.sin(4E20)=4E20,Math.cos(-4E20)=-4E20……,即sin(a)=a,这明显是错误的.2、由于Double类型可表示的正数数据范围为4.47E-324到1.31E308,对于上面4E20根本就还没有超出这个范围,居然VB.NET提供的Math类却算不出来,这是我没有想到的.3、由于自己算的数据有时候可能会大于9.77E+18,为了解决这个问题,特来求教.当然,我之前考虑过sin(a+2nπ)=sin(a)这种解决方案,但是代码执行后总是出错;自己也考虑过三角函数的泰勒展开的问题,但是由于数据太大,收敛慢,就没有考虑.在这里,如果您有什么想法,请您赐教,当然有代码就最好!4、顺便说一下,我在C语言里面测试了下,使用Math.h头文件计算结果为:sin(4e20)=-0.133932;而我在使用Matlab计算sin(4e20)=-0.847;
更正楼上代码：不位移也可以，Decimal小数类型可以带一位整数。VB.NET code
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If IsNumeric(TextBox1.Text) = True Then
Dim PI As Decimal
Dim P As String = &3.3833&
PI = CDec(P)
Label1.Text = Math.Sin(CDec(TextBox1.Text) - Math.Truncate(CDec(TextBox1.Text) / (2 * PI)) * 2 * PI)
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播不法有害信息！
二、互相尊重，对自己的言论和行为负责。
本文标题：
本页链接：VB.NET显示图片实现技巧具体讲解
我的图书馆
VB.NET显示图片实现技巧具体讲解
如果我们想要在网络中实现一个图片的获取并且显示的话应该怎么办呢？我们可以使用VB.NET来对此进行实现。那么就一起来分析一下VB.NET显示图片相关实现技巧吧。
开发编程语言为大家带来了不一样的体验效果。尤其是在移动设备的操作上。我们见天将会介绍一下有关在网络应用中，VB.NET显示图片的相关实现技巧，希望可以对又需要的朋友有所帮助。
VB.NET显示图片其实很简单：
PictureBox1.Image=Image.FromFile(FileName)&&
但是这种办法不能用于显示Internet上的图片，因为Image.FromFile不支持URI格式。那么怎么办呢？
其实 .net 为我们准备了一套很方便的VB.NET显示图片方法。在.net中，网上的资源（图片，动画，声音，网页等等）是通过System.Net.WebRequest 和 System.Net.WebResponse 两个类来得到的。简单的说，得到Internet上的图片的步骤是这样的（以/logo1.gif为例）：
1. 先通过URI建立一个WebRequest（请参考WebRequest构造函数）：
Dim&wr&As&WebRequestWebRequest&=&WebRequest.Create("http:///logo1.gif")&&
2. 然后通过其GetResponse方法得到一个WebResponse：
Dim&res&As&WebResponse=&wr.GetResponse&&
3. 通过WebResponse.GetResponseStream方法得到的流来创建Bitmap：
Dim&bmp&As&New&Bitmap(res.GetResponseStream)&&
4. 这样，就能实现VB.NET显示图片了：
PictureBox1.Image=bmp&&
怎么样，VB.NET显示图片不复杂吧。有两点要注意，一是要把这段代码用try包起来，因为服务器返回404等错误的时候会引发异常；二是最好把这个过程放到单独的线程里，以免程序界面没有响应。
System.Net.WebRequest 和 System.Net.WebResponse 不仅可以用于获得Internet图片，还可以用于获得其他资源。如果你想多了解，就去看看MSDN等其他资料吧。
TA的推荐TA的最新馆藏[转]&[转]&[转]&OCR识图技术 （Java/C#/VB/VB.NET/C/C++(VC)/C++ Builder/Delphi/易语言） - 技术坊 - ITeye技术网站
博客分类：
注：该程序不能识别出 汉字
参考网址：
易语言实现方法：
1、在参考网址中下载 VB ORC SDK-----
2、将下载后的文件解压；在文件夹中找到 AspriseOCR.dll、DevIL.dll、ILU.dll、AspriseVB.dll、VBWrapperNew.dll（这5个文件）；拷贝到 系统\WINDOWS\system32 文件夹下
易语言程序实现代码
1、DLL命令
------------------------------------------------------------------------------------------------------------
.DLL命令 OCR, 文本型, "AspriseVB.dll", "OCR"
.参数 file, 文本型
.参数 imageType, 整数型
------------------------------------------------------------------------------------------------------------
.DLL命令 OCRBarCodes, 文本型, "VBWrapper.dll", "OCRBarCodes"
.参数 file, 文本型
.参数 imageType, 整数型
------------------------------------------------------------------------------------------------------------
.DLL命令 OCRpart, 文本型, "VBWrapper.dll", "OCRpart"
.参数 file, 文本型
.参数 imageType, 整数型
.参数 startX, 整数型
.参数 startY, 整数型
.参数 width, 整数型
.参数 height, 整数型
------------------------------------------------------------------------------------------------------------
2、程序调用代码
------------------------------------------------------------------------------------------------------------
识别出来的字符串 ＝ OCR (“图片文件路径”, -1)
注：该OCR图片识别技术在实现时会由DLL自动弹出对话框
关闭DLL对话框方法：
1、DLL命令
------------------------------------------------------------------------------------------------------------
.DLL命令 FindWindowEx, 整数型, , "FindWindowExA"
.参数 hwndParent, 整数型
.参数 hwndChildAfter, 整数型
.参数 lpszClass, 整数型
.参数 lpszWindow, 文本型------------------------------------------------------------------------------------------------------------
.DLL命令 SendMessage, 整数型, , "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型------------------------------------------------------------------------------------------------------------
2、程序代码
------------------------------------------------------------------------------------------------------------
创建一个时钟控件，在控件中加入如下命令：
.子程序 _时钟1_周期事件.局部变量 句柄, 整数型
句柄 ＝ 取句柄 (, , “All rights reserved. Lab Asprise! (c) ”).如果真 (句柄 ≠ 0)
句柄 ＝ FindWindowEx (句柄, 0, 0, “否(&N)”)
.如果真 (句柄 ≠ 0)
SendMessage (句柄, 245, 0, 0)
'其它语言实现时'SendMessage'命令中的'245'常量可改为'BM_CLICK' -------其它常量对应值待查
'该程序用的易语言第三方模块（Super-EC3.8破解版.ec）中的“取句柄()”
浏览: 130442 次
来自: 北京
这个是在哪个包下面的啊，Maven Dependencies里 ...
为什么宽度为0的时候进度条不走呢
[b][color=brown][color=yellow]
想用一下，但是有点看不懂
非常有用,谢谢怎样在vb.net中将图片存入SQL Server 2000并能读出来使用?
有一种朋友不在生活里，却在生命力；有一种陪伴不在身边，却在心间。图老师即在大家的生活中又在身边。这么贴心的服务你感受到了吗？话不多说下面就和大家分享怎样在vb.net中将图片存入SQL Server 2000并能读出来使用?吧。
　　在数据库中建一个Img表,其中包含一个Img字段,类型为Image或Binary　　'将Bytes存入数据库　　Dim Stream As New IO.MemoryStream　　PictureBox1.Image.Save(Stream, System.Drawing.Imaging.ImageFormat.Bmp)　　Stream.Flush()　　Dim Bytes As Byte() = Stream.ToArray　　Dim
As String = "insert into Img values (@bytes) "　　Dim command As New SqlClient.SqlCommand(SQL, Connection)　　command.Parameters.Add("@bytes", SqlDbType.Binary).Value = Bytes　　command.ExecuteNonQuery　　'读取　　Dim Command As New SqlClient.SqlCommand(SQL, Connection)　　Dim Reader As SqlClient.SqlDataReader = Command.ExecuteReader()　　Dim Bytes as Byte()=Reader.Item("Img")　　Dim mStream As New IO.MemoryStream　　mStream.Write(Bytes, 0, Bytes.Length)　　mStream.Flush()　　Dim Img As New Bitmap(mStream)　　PictureBox1.Image = Img& 搜索“图”或者“tulaoshi_com”加关注，每天最新的美食、、、美妆、、手工DIY等教程让你一手全掌握。推荐关注！【扫描下图可直接关注】
来源:/n/7080.html
点击查看更多与《》相关的文章>>
有了下面这个在ASP.net中保存/取出图片入/从SQL数据库（可用于上传图片）教程，不懂在ASP.net中保存/取出图片入/从SQL数据库（可用于上传图片）的也能装懂了，赶紧get起来装逼一下吧！
将XML文件导入SQL Server 2000,将XML文件导入SQL Server 2000
下面这个SQL Server--怎样用ADO在SQL SERVER中建库建表教程由图老师小编精心推荐选出，过程简单易学超容易上手，喜欢就要赶紧get起来哦！
下面图老师小编要向大家介绍下在SQL Server 2005中用存储过程实现搜索功能，看起来复杂实则是简单的，掌握好技巧就OK，喜欢就赶紧收藏起来吧！
在SQL Server 2000里设置和使用数据库复制,在SQL Server 2000里设置和使用数据库复制
今天图老师小编给大家展示的是JSP调用SQL server 2000存储过程，精心挑选的内容希望大家多多支持、多多分享，喜欢就赶紧get哦！
热门搜索：
WORD艺术字基础教程
磁盘被写保护怎么办
PS相片处理 如何用PS将图片边框变透明
解决无法删除打印文档的步骤方法
作为猫咪的主人，我们应该知道，饮食对于猫咪是有很大的影响的。如果缺少相应的营养物质，可能会对猫咪造成很多的影响，比如说毛发没有光泽，生活无精打采等等。那么猫咪不能缺少哪几种物质？
猫咪是一种非常可爱的动物，而且非常的有个性，所以现在很多人都非常喜欢饲养宠物猫咪。作为猫咪的主人，我们应该知道，饮食对于猫咪是有很大的影响的。那么猫咪不能缺少哪几种物质？
猫咪是一种非常可爱的动物，而且非常的有个性，所以现在很多人都非常喜欢饲养宠物猫咪。作为猫咪的主人，我们应该知道，饮食对于猫咪是有很大的影响的。那么猫咪不能吃哪些东西？
羽毛球拍是常用的运动器材之一，有球柄球杆及击球面组成，击球面为网状，球杆细直。通过学习羽毛球拍简笔画知晓更多运动知识。接下来就通过学习羽毛球拍简笔画教程来了解如何绘画羽毛球拍简笔画。
怎么利用Photoshop给电商模特照片精修磨皮？很多朋友在工作中经常会遇到要求精修模特的情况，特别是做化妆品行业的电商设计师，所以总结了一下我的模特修图方法和技巧与大家分享，喜欢的朋友让我们一起来学习吧。
磨皮是我们ps照片最基本的技能，Photoshop人物磨皮是我们必须掌握的，如今不少国人对Photoshop修图的三大酷炫神技双曲线、中性灰与高低频几近痴迷，抓耳挠腮想学会它，下面一起看看教程吧。
掌握一点Photoshop教程对你是非常有用的，这篇教程是给大家分享PS简单快速创建眼睛彩虹美瞳效果方法，教程最终创建出来的效果非常漂亮，而且难度并不是很大，很值得大家学习，一起来学习吧。
2017年最受欢迎的生活服务APP！！生活服务类App的出现为日常生活带来极大便利，我们可以通过手机客户端预约各种家政服务，足不出户就能够享受实惠、便捷的生活服务，那么接下来我为大家推荐一些生活中必备生活app。
由于现在抢红包大热起来，很多app都开始支持发红包抢红包了，因此也出现了微信抢红包神器，可以自动抢微信红包,肯定比认为手动操作快,有消息就会自动打开,然后打开红包。今天就给大家分享2017微信自动抢红包神器大全。
2017手机赚钱软件排行榜！！很多朋友都在苦恼每天的钱不够话，空闲时间不知道怎么打发，总想寻找一种简单的赚钱方式，我们的手机app就有很多，下面具体给大家介绍手机赚钱软件有哪些，总有一款你中意的。
经常玩微信的朋友都知道，微信小程序已经全面上线了，对于小程序的出现是否会引发App变革众说纷纭，但不可否认的是小程序能够带给用户及产商一定的便利，那么今天为大家汇总目前上线的一些实用小程序。
男女交往一直都是人们比较关注的一个问题，都说相爱容易，相处不易，交往过的朋友应该都能深刻的体会到，女生常常抱怨着让男生理解自己，但男生也希望多体谅一下他们。尤其不要老是问一些无法回答的问题来考验他们。
很多朋友都信风水一说，对于自己家里房屋客厅的装修也是有一定要求的，因为客厅的风水关系着整个家居的运势，更关系着主人的财运与健康，因而客厅里的风水禁忌是需要我们谨慎注意的，那么风水学中客厅风水禁忌有哪些呢？
春天已经来临了，夏天也不远了，新的一才刚刚开始，时尚爱美的美眉们最关注的就是春夏服装设计的流行趋势了，早早的把握住时尚趋势走在流行的最尖端，今天就给大家整理分享2017春夏女装设计流行趋势 ，你绝对不能错过的亮点。}