洒家不戒女色
洒家不戒女色
关注数: 10
粉丝数: 17
发帖数: 606
关注贴吧数: 4
[求教]一个变量赋值的问题 dim a as uint32=&H80000000 '提示"常量表达式无法在类型uinteger中表示" dim a as uint32=2147483648 '这样写就不会提示错误 实际上给a赋的值都是一样的 请教大神,这是何故
[求助]窗口最小化时窗口内的控件尺寸 设有窗口Form,内有控件PicBox,位置和尺寸均不为0 假设程序运行中Form最小化,此时获取PicBox的Left,Top,Width,Height均为0 请问如何能够在这种状态下准确的获取到PicBox的位置和尺寸
[求助]窗口最小化时窗口内的控件尺寸 设有窗口Form,内有控件PicBox,位置和尺寸均不为0 假设程序运行中Form最小化,此时获取PicBox的Left,Top,Width,Height均为0 请问如何能够在这种状态下准确的获取到PicBox的位置和尺寸
[求教]线程间通讯的问题 有主线程MainThread,在执行过程中启动子线程SubThread, SubThread中出现错误捕捉到ex,如何能将此错误上报到主线程处理? 我现在是用的一个公有变量,在SubThread中赋值,在MainThead中判断处理, 请教各位高手另外的实现方法
[求助]类在实例化时给予限制的问题 假设写一个类CTest,里面有一个m_Name字段, 我想要在这个类实例化的那一刻起,就保证了m_Name字段的值是符合一定规范的,比如说不能为空或者不能包含0-9字符之类的, 我现在是在构造函数里面检测传入值,然后抛错,但是觉得这种做法不太好 请教各位高手有什么更好的方法,请不吝赐教,万分感谢
[求助]类在实例化时给予限制的问题 假设写一个类CTest,里面有一个m_Name字段, 我想要在这个类实例化的那一刻起,就保证了m_Name字段的值是符合一定规范的,比如说不能为空或者不能包含0-9字符之类的, 我现在是在New(byval Name As String)里面检测,然后抛错,但是觉得这种做法不太好 请教各位高手有什么更好的方法,请不吝赐教,万分感谢
[求助]私有继承的问题 有一个类CLS_A作为基类 类CLS_B继承CLS_A成为派生类 现在想CLS_B的对象OBJ_B只能访问到CLS_B里面的方法,不能直接访问到CLS_A的方法,请问该怎么做
[求助]查看dll中接口被那些类实现了 最近用 DirectShowLib-2005.dll 写点东西,被那些接口和类绕得挺糊涂的,一大堆各种接口,一大堆各种类实现了这些接口,但是在对象浏览器里看不出具体这个接口被哪些类实现过,或者说这个类实现了哪些接口,看例程里面接口和类各种神转换,很是头疼. 哪位大神知道能够查看接口和类的实现关系的办法,请赐教一二,不胜感激
[求助]查看dll中接口被那些类实现了 最近用 DirectShowLib-2005.dll 写点东西,被那些接口和类绕得挺糊涂的,一大堆各种接口,一大堆各种类实现了这些接口,但是在对象浏览器里看不出具体这个接口被哪些类实现过,或者说这个类实现了哪些接口,看例程里面接口和类各种神转换,很是头疼. 哪位大神知道能够查看接口和类的实现关系的办法,请赐教一二,不胜感激
[求助]TCP异步接收的问题 Private Sub ReceiveCallBack(ByVal AR As IAsyncResult) Dim SB As SocketAndBuffer Dim BytesCount As Integer SB = AR.AsyncState If SB.WorkSocket.Connected = True Then '连接断开时也会到这里!! BytesCount = SB.WorkSocket.EndReceive(AR) Try Debug.Print("数据已接收,共接收{0}字节", BytesCount) Debug.Print(BytesToHex(SB.Buffer, 0, BytesCount)) SB.WorkSocket.BeginReceive(SB.Buffer, 0, SB.Buffer.Length, SocketFlags.None, New AsyncCallback(AddressOf ReceiveCallBack), SB) Catch ex As Exception DebugError(ex) End Try End If End Sub 用BeginReceive接收数据,以上是回调函数,能接收到数据,处理完成之后重启BeginReceive时就出错 SB.WorkSocket.BeginReceive(SB.Buffer, 0, SB.Buffer.Length, SocketFlags.None, New AsyncCallback(AddressOf ReceiveCallBack), SB) 这句报错说 "由于套接字没有连接并且(当使用一个 sendto 调用发送数据报套接字时)没有提供地址" 但是SB.WorkSocket这个套接字的状态是已连接上的啊,我看MSDN上的代码也是这么写的,但为啥就报错了呢,求高手详解一下,不胜感激
[求助] 如何实现图示的角度渐变 请教高手,如何才能实现这种角度渐变
[求教] 如何实现图示的角度渐变 如图所示的角度渐变如何才能实现,请教各位高手
[请教] String.Format(String, Object()) 的问题 String.Format(String, Object()) 该函数的第二个参数是一个数组,但是却可以通过Format("xxxxxx", p1,p2,p3,p4,p5)这种参数列表的形式,而不仅仅是Format("xxxxxx", {p1,p2,p3,p4,p5})这种参数数组的形式来访问,请教一下是如何做到的
阴影里先进来福枪在哪里 做完了纪律团那个六管神器的任务之后,又有个找先进来福枪的任务,提示地点在酒吧里面自己放东西的那个箱子旁边,我看旁边铁笼子里面有几个柜子,是不是在那里,怎么能拿到
[求教]如何实现多色连续渐变 比如我要填充一个区域,我希望填充色从左到右从蓝色渐变到黄色再渐变到绿色这样,除了分段画出来之外,有没有省事儿一点的办法,请高手指教
[求助]请教一些跨线程事件响应和显示的问题 新手,多线程的部分有很多不明白,想请教一下大家,望不吝赐教 下面贴上代码,代码有两组,实际上想做的都是一件事 程序有三个部分,类Class1,窗体Form1,Form2 在Form1内实例化Class1为C1,在Form2内显示一些C1通过事件传出的信息 代码1 Imports System.Threading Public Class Class1 Public Event EvenNumber(ByVal n As Integer) Private Num As Integer Private StopThread As Boolean = False Public Sub ThdStart() Dim Thd As New Thread(AddressOf ThdAdd) StopThread = False Thd.Start() End Sub Public Sub ThdStop() StopThread = True End Sub Private Sub ThdAdd() Do While StopThread = False Thread.Sleep(1000) Num = Num + 1 If Num Mod 2 = 0 Then RaiseEvent EvenNumber(Num) End If Loop End Sub End Class Public Class Form1 Public WithEvents C1 As New Class1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click C1.ThdStart() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click C1.ThdStop() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Form2.Show() End Sub Private Sub C1_EvenNumber(ByVal n As Integer) Handles C1.EvenNumber Me.Invoke(New Form2.DlgShowText(AddressOf Form2.ShowText), n.ToString) 'A End Sub End Class Public Class Form2 Public Delegate Sub DlgShowText(ByVal s As String) Public Sub ShowText(ByVal s As String) TextBox1.Text = s 'B End Sub End Class A处能响应事件,并且能执行到B处,而且不报错,但是textbox1里面并不显示任何内容,请教各位高手这是为何 代码2 Imports System.Threading Public Class Class1 Public Event EvenNumber(ByVal n As Integer) Private Num As Integer Private StopThread As Boolean = False Public Sub ThdStart() Dim Thd As New Thread(AddressOf ThdAdd) StopThread = False Thd.Start() End Sub Public Sub ThdStop() StopThread = True End Sub Private Sub ThdAdd() Do While StopThread = False Thread.Sleep(1000) Num = Num + 1 If Num Mod 2 = 0 Then RaiseEvent EvenNumber(Num) End If Loop End Sub End Class Public Class Form1 Public WithEvents C1 As New Class1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click C1.ThdStart() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click C1.ThdStop() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Form2.Show() End Sub End Class Public Class Form2 Public Delegate Sub DlgShowText(ByVal s As String) Public Sub ShowText(ByVal s As String) TextBox1.Text = s End Sub Private Sub C1OnEvenNumber(ByVal n As Integer) Me.Invoke(New DlgShowText(AddressOf ShowText), n.ToString) 'C End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AddHandler Form1.C1.EvenNumber, AddressOf C1OnEvenNumber End Sub End Class 打开form2可以在textbox1中正确显示,在form2从未打开时和form2已经打开时不会出错,但是只要打开过form2,然后关掉,就会在C处报错"在创建窗口句柄之前,不能在控件上调用 Invoke 或 BeginInvoke。",请教高手这又是为何
[求助]串口接收数据BytesToRead的问题 ReDim BufInput(SP.BytesToRead - 1) SP.Read(BufInput, 0, SP.BytesToRead) 在DataReceived事件里面这样写,第二句很容易出错,报错的意思大概就是说我定义的这个数组收不下这么多数据,貌似就在这两句之间,BytesToRead这个值就增大了,之前在网上看资料,有人说吧RtsEnable=True,加了这句之后报错少了,但是还是存在. 或者我写成 InputLength = SP.BytesToRead ReDim BufInput(InputLength - 1) SP.Read(BufInput, 0, InputLength) 这样应该不会报错,但是不知道能不能完整的接收数据,求助一下高手们,这个问题如何搞定.
[求助]关于委托显示的问题 初学vb.net,想显示点东西真心是不容易啊 如下程序,同样的事件,从Test过程里面产生就能正常显示Description,从SP_Datareceived事件里产生的就不能显示Description,但是语句能执行到TextBox1.Text=Text, 不知何因,请高手指点 串口类 Imports System.IO.Ports Class SPXX ....Public Event CommandCompleted(ByVal Description As String) '定义指令完成事件 ....Prvate WithEvents SP As New SerialPort '定义串口控件 ....Private Sub Test() '一个非响应事件的过程 ........RaiseEvent CommandCompleted(Description) '产生一个指令完成事件 ....End Sub ....Private Sub SP_Datareceived(...........)Handles SP.Datareceived '处理串口的接收事件 ........'一些数据处理 ........RaiseEvent CommandCompleted(Description) '产生一个指令完成事件 ....End Sub End Class 窗口程序 Class Form1 ....Public Shared WithEvents SPX As New SPXX ....Public Delegate Sub DlgShowText(ByVal Text As String) ....Public Sub ShowText(ByVal Text As String) ........TextBox1.Text=Text '程序都能执行到这里,从Test里发生的事件能显示,SP_Datareceived里发生的事件不能显示 ....End Sub ....Private Shared Sub SPX_CommandCompleted(ByVal Description As String)Handles SPX.CommandCompleted ........Dim ST As Form1.DlgShowText(AdressOf Form1.ShowText) ........ST.Invoke(Description) ....End Sub End Class
[求助]一个串口类返回数据的问题 写一个串口的类 假设如下 class spxx private withevents sp as new serialport '从串口取某个值 public function getX() as long sendsomething '串口下发一条取值指令 end function '串口接收处理 private sub sp_datareceived(......) dim X as long X=someval '从串口接收到的数据 end sub end class 我想要通过串口指令读取到下位机里面的某个值,不知道有没有办法能让X取到值之后从getX函数返回 刚搞vb.net没几天,请各位高手不吝赐教,感激不尽
SOC坑死爹啊 在酒吧那张图本来混得好好的 纪律团都是绿色的 结果遇到个搞地下格斗的 搞了几把还挺来钱 结果出来就有人红了 拿枪打我 我弄死他了 更多人红了 后来纪律团的都红了 我把他们杀了 结果那个将军也被搞死了...T-T...草草草草草
[求助] MySQL启动后马上关闭 系统:windows XP sp3 版本:mysql 5.6.10.1 自定义安装部件server+connector 修改了安装路径和数据存储路径 安装后mysqld.exe:已启动/自启动 但是mysql.exe打开闪一下马上就关闭,重装mysql也没用 同一个安装包,昨天在另一个win7的电脑上安装成功了,今天就栽在XP上了 各位大侠救命...Orz
[求助] VB创建MYSQL数据库 各位大侠好,我想请教各位一下,如何用VB语句创建MYSQL的数据库. 在网上看都是先创建好了库再连接的 能不能像ACCESS那样直接就能用语句创建 望大侠们不吝赐教
[求助]如何用窗体名称打开窗体 1.已知窗体名称(字符串变量) 2.窗体未加载 如何打开显示该窗体 多谢路过的大侠帮助
VS2010+Windows SDK 7.1安装问题,求大神 这两天要用directshow,就照着网上的文章开始弄,在微软官网上下了一个Windows SDK 7.1,始终安装不成功. 网上有说Microsoft Visual C++ 2010 x86(x64) Redistributable版本问题的,还有说安装时候不选择VC-Compiler的,我把VC Redistributable卸载了,安装的时候VC-Compiler是灰色并且打勾的啊,取消不了啊....要疯了,装了N次都没搞定,求大神帮解决
VS2010+Windows SDK 7.1安装问题,求大神 这两天要用directshow,就照着网上的文章开始弄,在微软官网上下了一个Windows SDK 7.1,始终安装不成功. 网上有说Microsoft Visual C++ 2010 x86(x64) Redistributable版本问题的,还有说安装时候不选择VC-Compiler的,我把VC Redistributable卸载了,安装的时候VC-Compiler是灰色并且打勾的啊,取消不了啊....要疯了,装了N次都没搞定,求大神帮解决
[求助]WIN7不能添加system32里的控件 我在WIN7里安装了VB,使用的时候从C:\WINDOWS\system32里面选择添加MSWINSCK.OCX控件,之后VB就一直停在那里不动了,只能关掉VB.从别的地方添加控件可以,请教各位高手如何解决问题
[求助]E420的风扇问题 现在这个风扇是开机一直懒懒散散的转着,把温度弄到七八十也不会快点,如果电脑休眠了再开起来,就满速嗡嗡的转,弄得再凉也不会慢下来...开机还会有fan err的错误,求教各位高手如何解决
[求助]自定义控件的scalemode属性 做自定义控件,设置为可做容器,设置scalemode=vbpixels(单位像素).之后使用自定义控件,并向自定义控件内放置其它控件,但是查看放置在内的控件长宽左右属性,数值依旧是vbtwips做单位,请问这是为什么,求高手解答
[求助]一个诡异的现象,求解释 我往文件里面写数据,都是结构体里面的Long类型数据,赋同样的值1254,为什么两次的字节顺序还不一样,我简直非常头大,第一个是BITMAPFILEHEADER结构,第二个是BITMAPINFOHEADER结构,用WriteFile写的,求教高手
[求助]请教一下Render方法 SP是一个stdPicture对象 SP.Render hDC, 0, 0, Width, Height, Left * HPP, Top * HPP, Width * HPP, Height * HPP, 0 这句会报错说"类型不匹配" SP.Render hDC, 0, 0, 200, 200, 0,0,200,200, 0 这样会报错说"无效的过程调用或参数" 这个东东到底要怎样用啊,求高手给句指点
[求助]如何改变二进制文件的大小 比如现有一文件,长度为X,现直接更新此文件,新数据的长度为Y,Y小于X,数据写入文件后,文件长度依然为X,多余出X-Y的无用数据,请教如何能将文件长度改变为Y(不删除原文件重写的情况下),各位高手不吝赐教
[求助]同工程窗体置顶 同一个工程的窗体,假设为Form1,Form2,我先在Form1的Form_Load里面用SetWindowPos把Form1置顶,在从Form1上打开Form2,Form2的Form_Load里面也用SetWindowPos置顶,事情来了,这俩窗体居然没有分前后,Form2挡不住Form1,一点Form1就到最前面来了,求教高手咋搞
[求助]VB无限制生成新窗体 缘由是这样的,我要写一个程序,程序中窗体布局和逻辑什么的都是一样的,但是窗体数目不能确定,不知道有没有办法在运行中生成和销毁数个窗体,高手请指教.
[求助]模仿window画图板的刷子 在网上下了很多模仿画图板的程序,没有一个能一摸一样的模仿出"刷子",吧里的高手能不能指教一下,完全一模一样的模仿出刷子功能
[求教]关于toolbar工具栏的问题 现有一个toolbar,我想在某些情况下,做到点击里面的某些按钮无效,我用子类化截取了它的消息,把wm_command消息处理掉了,现在点击工具栏的按钮不会执行click事件里的代码,但是工具栏的外观表现还是像被点击过一样,请问怎样才能做到点击之后外观也不改变,求各位大侠赐教
[求助]用API函数获取Form的设备场景句柄 假设From.AutoRedraw=T,如何用API(比如GetDC,GetDCEx等)获取其设备场景句柄XDC,并且XDC=Form.hDC,各位大侠路过的顺便指教一下
[求助]通过句柄获取窗口(控件)的属性值 如何通过窗口/控件的句柄hWnd来获取到它的属性值,现在我只会获取文本,想获取其背景色该怎么弄,求教各位高手
[求助]如何获取数据集中当前游标的位置 RT...请教各位高手
[求教]镜像打印文字 求教各位高手,有没有方法在具备DC的控件上将文字进行镜像打印,求教求教,不胜感激
[春节愉快--问个问题]文本框如何一直保持焦点 假设界面上有TextBox和Command两类控件,焦点在TextBox中,如何使得按下Command控件的时候TextBox能保持焦点,不是将焦点再设置回去,而是使得焦点一直不动保持在TextBox内,求高手赐教,顺祝春节愉快
[求助]用MMControl循环播放声音文件 Dim PlayTimes1 As Integer Private Sub Form_Load() MMC1.FileName = AlarmPath1 MMC1.Command = "Open" End Sub Private Sub Command1_Click() MMC1.Command = "Play" End Sub Private Sub MMC1_Done(NotifyCode As Integer) PlayTimes1 = PlayTimes1 + 1 If PlayTimes1 < 3 Then MMC1.Command = "Prev" Else PlayTimes1 = 0 End Sub 如上所示 我想每次点击Command1,MMC1就将声音循环播放三次. 第一次点击Command1,MMC1能如预期的将声音播放三次,但是之后再点击,都只播放两次. 跟踪了一下程序,发现首次点击Command1的时候,MMC1是将声音播放完成之后才进入的MMC1_Done事件,顺序是 播放_Done_播放_Done_播放_Done ,之后再点击,声音还没有播放便提前进入了一次Done事件,顺序是 Done_播放_Done_播放_Done,不知是哪个MMControl的状态没清掉还是别的什么原因,求高手指教
ADO记录集转二进制再解释出来 有两个进程A,B,共用一个数据库,使用ADO访问,但是不希望A进程直接访问到数据库,因此在AB间建立通讯,A将数据请求发送到B,B访问数据库,将结果返回给A. 现在的问题是,B取得数据后,如何将取得的记录集转成二进制,以便通讯给A,再之后A如何还原或者解释二进制流,得到数据. 现使用的方法是,将数据集逐字段的做好标记连接成一个长字符串传送,有没有更加简单高效的办法,求高手不吝赐教...
[求助]自定义控件的发布 做了一个控件,控件用到了一点子类化处理系统消息的东西,因此就有一个usercontrol和一个module,在没发布的情况下,功能都还能用,把usercontrol和module一起发布成一个ocx之后,用另外一个工程去调用部件,当程序跑到子类化处理系统消息这块儿,立马各种崩溃啊...咋搞啊...高手们...小弟求教了...
[求助]PropertyBag保存二进制数组 做一个控件,要显示一些png,ico等VB自身不支持的图像...显示这块儿搞成了...想做成VB本身的picturebox里面加载picture文件那样,加载之后文件数据就被保存到程序里面了...想通过propertybag把读取到的图像文件的二进制数组保存下来...但是能写进去读不出来... Dim m_ImgBits() As Byte 写到属性包这句没有问题 Call PropBag.WriteProperty("ImgBits", m_ImgBits) 但是从数据包读出来就不行 m_ImgBits = PropBag.ReadProperty("ImgBits") 报错:327,名为'ImgBits'的数据值未找到 各路高手帮忙看看...
[求助]给用户控件添加一个支持文件浏览的属性 给用户控件添加一个像"picture"这种,设置属性的时候可以通过对话框进行文件浏览的属性,不知可行否,还请各位大侠指点一二啊...
[求助]把图像数据读入数组,如何显示该图像 把图像数据读入数组,不通过磁盘文件操作,如果直接将该数组显示为图像,求高手助我啊
请教一下double类型的存储格式 我想把一个大数转换到总长8字节的byte数组中,先把大数给到一个double类型中,然后复制内存到byte数组中,结果果断看不懂byte里面的数据...请教一下double类型的数据在内存中是咋存储的...天降高手来拯救我吧...
求点DirectX的资料 吧里有没有大哥大姐收集了DirectX资料的,求一点读读,作为一个昨天才开始学这个的人,光看例程里面一堆常数搞不懂...先谢谢了
枚举远端服务器文件夹内文件 远端服务器文件夹内有一些图片文件,想从中随机抽取N张下载到本地显示,不知道怎样才能知道该文件夹内所有文件的文件名,万望各路高手赐教
[求助]透明无窗体自定义控件检测鼠标离开 BackStyle=0,windowless=T的自定义控件如何检测鼠标离开,用SetCapture和ReleaseCapture好像已经闹不住了,求一个闹得住的办法
ICON图标制作的问题 那天在吧里看了一篇讨论制作ICON图标的帖子,所以斗胆在这里问这个和VB没啥毛关系的问题. 我想做一个图标组,也不知道是不是叫图标组,就是把几个单幅图标合并到一个图标里面,以前一直用GIF Movie Gear这个工具,只能生成24位的图标,而且如果要合并的几个图标如果尺寸相同的话,它就不给弄. 现在的问题是我想把几个尺寸相同的32位图标合并到一个图标里面,用什么工具,怎么弄,请各路高手不吝赐教啊.
能不能用数组作自定义控件属性 能不能用数组作自定义控件属性,如果能该咋搞,各路高手赐教啊赐教..
如何判断数组是不是动态数组 如何判断一个数组是不是动态数组,能不能redim,除了抓err来判断之外有没有别的方法
查找Windows消息的来源 假设两个程序互发自定义Windows消息,在不利用wparam,lparam的情况下,两者能否在收到消息的时候,得知消息来源的句柄.
无窗体程序 写一个程序不涉及任何窗体的元素,从sub_main启动,在哪儿扫尾...高手吗不吝赐教啊...
VB的类能不能自动初始化 就像C++类的构造函数一样...不用用户调用方法...自动进行初始化...我就是十万个为什么啊...求高手
有没有能替代Addressof函数的东东 这个Addressof真是又爱又恨啊...还非得只能在标准模块使用...要在控件或者类里面用它还得单写一个标准模块来回倒...有没有能够替代Addressof的API什么的...请高手们指教
[求助]列举枚举变量的名称 Private Enum Color Black = 1 White = 2 Yellow = 3 Red = 4 Green = 5 Blue = 6 End Enum 假使有这样一个枚举型变量,用一个列表将 Black White Yellow Red Green Blue 等字面自动列举出来不知可否,求各路高手赐教 ....
[求解]LenB获取结构变量长度的问题 有一个结构变量 Private Type CC A as long B as byte End Type Dim C AS CC 用Len和LenB分别求C的长度 Len(C)=5 LenB(C)=8 这是为毛啊为毛啊,不是占用5Byte的空间么,LenB为毛求出来是8
[求教] &HFFFF 和 &HFFFF& 有什么区别 Private Function LoWord(ByVal Num As Long) As Integer LoWord = Num And &HFFFF& End Function 就这个函数 如果我用 LoWord = Num And &HFFFF 的话 就会产生溢出 看别人用的LoWord = Num And &HFFFF& 改成这样就不会溢出 &HFFFF 和 &HFFFF& 有什么区别 求教各路英雄
1
下一页