-
分号小结（部分）
所属栏目：[大数据] 日期：2020-12-16 热度：112
分号小结（部分） 今天老师讲了一个程序，发现其中有分号，很疑惑，很显然vb中到现在为止用分号的很少，结尾的地方用标点的也很少，于是总结了下分号在vb中的用法，很显然不全，请多多指教。 说到分号的用法首先说到现在为止我遇到的都只是在print语句中用到[详细]
-
VB工程处---百例66--网站页面
所属栏目：[大数据] 日期：2020-12-16 热度：77
Option Explicit Private Sub Form_Click() End End Sub Private Sub Form_Resize() Label1.Left = (Me.ScaleWidth - Label1.Width) / 2 '标签库label1水平居中显示 Label1.Top = Me.ScaleHeight / 4 '标签框label1的高度位于窗体的1/4处 Label2.Left = (Me.[详细]
-
绘制图形总结
所属栏目：[大数据] 日期：2020-12-16 热度：105
图形是我们生活中最直观，最形象的物体，很多我们可以通过图形使一些问题变得简单，变得通俗易懂。VB中也提供了图形设计，图形绘制的工具，方法，使我们自己通过编程实现一些图形才能实现的东西。绘制图形的步骤 1，建立坐标，2，所必要的控件，3，设置属性[详细]
-
VB工程--百例69--消息框
所属栏目：[大数据] 日期：2020-12-16 热度：200
Option Explicit Private Sub Form_Click() Dim x As Integer x = MsgBox("你单击的是窗体，是吗？",35,"询问框") If x = 6 Then '若们四个box的函数的返回值是6 MsgBox "你选择了“是”按钮",vbInformation,"信息框" '弹出的选择“是”的消息框 注意是的引[详细]
-
VB工程--百例70---求平均数
所属栏目：[大数据] 日期：2020-12-16 热度：194
Option Explicit Dim i,v,sum,aver '定义变量 i用于在输入框中显示输入的是第几个数__ '变量v表示在输入框中输入的数值，sum求和，aver求平均数 Private Sub Command2_Click() aver = sum / 3 Text1.Text = Str(aver) '将数据型转换成为字符型数据 End Sub P[详细]
-
VB.net程序处理命令行参数的例子
所属栏目：[大数据] 日期：2020-12-16 热度：180
很多情况下需要支持命令行运行，但是VB中的主函数并没有直接支持命令行参数，获取方法有些特别。 今天用vb.net做了个，记录在这里以备日后查找。VB的处理与此不同，网上查了下，需要使用系统DLL文件中的GetCommandLine函数。 这里这个程序的命令行参数处理并[详细]
-
VB工程---实例72--下拉式菜单
所属栏目：[大数据] 日期：2020-12-16 热度：162
Option Explicit Private Sub Form_Load() With lbl1 .Visible = False '没有注意到前面的"." 犯错了 以后记住 .Left = (pic1.ScaleWidth - lbl1.Width) / 2 标签框在图片框中水平居中 .Top = (pic1.ScaleHeight - lbl1.Height) / 2 标签框在图片框中垂直居[详细]
-
小菜学ADO.NET
所属栏目：[大数据] 日期：2020-12-16 热度：89
这一周刚在原来的基础上又深入的学习了下三层，其中敲代码的时候发现连接数据库方面的知识弄的自己云里雾里的。本来以为原来VB连接数据库的知识可以就那样，VB.NET看看代码就能大概学的差不多，结果用起来就不是那样了，敲了连接数据库的字串后，不知道怎么[详细]
-
VB工程--百例74--窗体变色
所属栏目：[大数据] 日期：2020-12-16 热度：197
Option Explicit Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button = 2 Then '若单击鼠标右键 PopupMenu mnuformcolor '在窗体上创建弹出式菜单 End If End Sub Private Sub mnucolor_Click(index As Int[详细]
-
VB工程--百例73--弹出式菜单
所属栏目：[大数据] 日期：2020-12-16 热度：56
此题和VB工程--百例74如出一辙 Option Explicit Private Sub Form_Load() With lbl1 .Caption = "欢迎登陆邢金聪的博客" .FontBold = 28 .FontBold = True .FontUnderline = True '将标签中的文字加下划线 .ForeColor = RGB(255,0) .Left = (Me.ScaleWidth -[详细]
-
VB工程---百例75--状态栏
所属栏目：[大数据] 日期：2020-12-16 热度：188
重点statusbar外部控件的掌握 Option Explicit Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) stb1.Panels(3) = "X:" Str(X) '第3个窗体上显示鼠标在图像框的水平位置 stb1.Panels(4) = "Y:" Str(Y) '第4个窗体[详细]
-
VB工程--百例76--工具栏
所属栏目：[大数据] 日期：2020-12-16 热度：84
这个例子在写时有些陌生，无从下手，经过仔细研究，三遍才将其完整的运行，第一遍尝试，第二遍五个按钮中有些运行不了，第三遍自己通过理解与记忆，背着完整的写了出来，而且运行非常成功！以此铭记！具体步骤如下！ Option Explicit Private Sub Toolbar1_B[详细]
-
tlb、tlh和tli文件的关系
所属栏目：[大数据] 日期：2020-12-16 热度：172
tlb、tlh和tli文件的关系 tlb文件：com类型库文件。在需要使用对应com类的模块里，“#import ...*.tlb”使用之。 tlh、tli文件：他们是vc++编译器解析tlb文件生成的标准c++文件。因为odl和tlb并不是C++标准的东东，有必要把它们翻译成标准的C++类型，使得C++[详细]
-
VB工程百例77---查看状态栏、工具栏
所属栏目：[大数据] 日期：2020-12-16 热度：52
IF条件Then语句块1[Else语句块2]：如果条件成立（值为True），则执行语句块1，否则执行语句块2 通过自己和多名同学的努力，证实百例课本书的此题是错误的的，请大家注意！！！[详细]
-
DataTable DataRow String Tips...
所属栏目：[大数据] 日期：2020-12-16 热度：189
2012-2-6 17:32:24 PM IS2120@CSDN 与datatable奋战了一天，记录一下。。。 1. 查看得到的 datatable 是否为空 datatable.Rows.Count 2. 查看得到的 DataRow[] 是否为空，可用 DataRow.Length 3. DataTable 在进行select的时候，默认是 CaseSensitive 为 fal[详细]
-
vb 窗体透明效果（控件不透明）
所属栏目：[大数据] 日期：2020-12-16 热度：78
'窗体透明，控件不透明的代码：Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long,ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd[详细]
-
VB 显示PNG图片（适合透明窗体和一般窗体）
所属栏目：[大数据] 日期：2020-12-16 热度：128
Private Declare Function GdiplusStartup Lib "gdiplus" (token As Long,inputbuf As GdiplusStartupInput,Optional ByVal outputbuf As Long = 0) As GpStatusPrivate Declare Sub GdiplusShutdown Lib "gdiplus" (ByVal token As Long)Private Declare Fu[详细]
-
vb 点击控件移动窗体
所属栏目：[大数据] 日期：2020-12-16 热度：65
添加模块 代码如下：Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long,ByVal wParam As Long,lparam As Any) As LongPublic Declare Function ReleaseCapture Lib "user32" () As LongPublic[详细]
-
vb 窗体综总是保存其他窗口的最前面
所属栏目：[大数据] 日期：2020-12-16 热度：164
OptionExplicit ConstSWP_NOSIZE=H1 ConstSWP_NOMOVE=H2 ConstSWP_NOACTIVATE=H10 ConstHWND_TOPMOST=-1 ConstHWND_NOTOPMOST=-2 ConstSWP_SHOWWINDOW=H40 PrivateDeclareFunctionSetWindowPosLib_ "USER32"(ByValhwndAsLong,ByValhWndInsertAfter_ AsLong,B[详细]
-
VB学习总结心得1-----为学习插上起飞的翅膀
所属栏目：[大数据] 日期：2020-12-16 热度：145
学习就是一个过程：由陌生到熟悉、由熟悉到熟知、由熟知到熟练、由熟练到精炼、由精炼到精通，由精通到神通。。。 这个过程的真谛就是，行动要下移，思想要上移。。。 在做百例的例子中发现了好多的问题，其实我明白发现越多的问题越好，这我才有机会进步。[详细]
-
学习VB前应了解windows的消息传递
所属栏目：[大数据] 日期：2020-12-16 热度：145
windows是可视化 操作系统，VB是可视化操作环境，VB只能在windows的操作平台上使用，那么我们就应该了解windows是怎样处理程序之间的运行的。它是按照事件→消息→处理非顺序执行的操作。可参考下面的图解宏观掌控一下： 其中，windows系统也存在消息队列。[详细]
-
VB程序设计总括（一）
所属栏目：[大数据] 日期：2020-12-16 热度：139
VB程序设计，即为了达到某个目标而设计的一段程序，执行可以通过此程序完成其。其步骤为： 目标分析，预购框架；设计用户界面，设置对象属性，编写对应的事件代码，保存工程，运行程序并调试改正 。下边是我通过这个过程，由大到小的一个总结。这个总结其实[详细]
-
VB工程-- 百例79--字体屏保
所属栏目：[大数据] 日期：2020-12-16 热度：83
此例是到现在为止，编写的最大，窗体最多，代码最多，耗时最长的例子，刚看到是有些晕菜！但是一想行动下移，我还是慢慢的敲写了下来！期间出现了一点点小麻烦，但是咱韧劲足，一点点克服啦！我胜利啦！写出来啦！运行成功！留下一点点心酸记忆，问题越多我[详细]
-
幾種經典的二值化方法及其vb.net實現
所属栏目：[大数据] 日期：2020-12-16 热度：97
圖像二值化的目的是最大限度的將圖象中感興趣的部分保留下來，在很多情況下，也是進行圖像分析、特征提取與模式識別之前的必要的圖像預處理過程。這個看似簡單的問題，在過去的四十年裡受到國內外學者的廣泛關注，產生了數以百計的閾值選取方法，但如同其他[详细]
-
VB工程--百例80--图片的打开与删除
所属栏目：[大数据] 日期：2020-12-16 热度：156
这道例子和百例79相类似，同样用到了 CommonDialog控件 http://baike.baidu.com/view/2420618.htm Option Explicit Private Sub Command1_Click() cdl1.Filter = "图片文件(*.bmp;*.jpg;*.tif)/*.bmp;*.jpg;*.tif" cdl1.ShowOpen '显示图片 img1.Picture = L[详细]
