Function PointToFaceDis(ByVal face1 As Face, ByVal Point1 As Point) As Double '点到面的距离 Dim workPart As Part = theSession.Parts.Work Dim direction1 As Direction direction1 = workPart.Directions.CreateDirection(face1,
Function PointToFaceDis(ByVal face1 As Face, ByVal Point1 As Point) Dim workPart As Part = theSession.Parts.Work Dim direction1 As Direction direction1 = workPart.Directions.CreateDirection(face1, Sense.Forward, SmartObje
方法一： 在编程时经常会用到判断文件是否存在，比如对文件做读写操作前，或是判断密钥文件是否存在等。判断的方法有很多，有些方法虽很实用，但有点繁琐。其实还可以有更简单的方法，就是使用vb 6.0提供的filesystemobject对象。 filesystemobject对象不是vb内置对象，使用前必须首
Private Sub lblC01_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblC01.Click Dim myTxt As TextBox myTxt = CType(dgvA.EditingControl, TextBox) txtC01.Text = myTxt.SelectedText End Sub
原理：有时候我们嫌combobox自带的下拉箭头不符合整体界面风格，网上有集成改写combobox的方法，太复杂，而且本人试过也不够完美。我的做法是在combobox上面 贴一个LABEL，设置label的大小为下拉箭头区域的大小，正好覆盖掉combobox自己的下拉箭头，为label增加click（Lb_Click）事件，另外禁用了c
Sub OutPutArrtoCSV(ByVal CSVNm, ByVal OutPutArr, ByVal Arr_LENGTH, ByVal Arr_WIDTH) On Error Resume Next Dim CSVFolder As String = OutDFSPath ’ Application.StartupPath CSVNm = Replace(CSVNm, vbCrLf, “_”) Dim CSVFile_Str As String = CSVFolder & “” &
'添加一个类模块，模块名称设置为：cSubclass '代码如下： Option Explicit Private Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (Destination As Any, Source As Any, Optional ByVal Length As Long = 4) Private Declare Function CallWindowProc Lib “
用VBA检查某个软件是否安装及其安装路径 前言实现解释 前言 有时候需要用VBA启动其它程序处理事情，例如整个处理流程中需要先解压缩文件。此时，主动探测用户电脑上是否已安装相应的软件及安装位置就比较重要。 实现 通过调用Windows API来实现 Private Declare Function Re
Attribute VB_Name = "Module1" Option Explicit Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As
在jeecgboot中制作查询报表非常方便，可以在online报表配置中快速完成。 在数据库中可以看到对应的两张表存放这些配置，一张是onl_cgreport_head，存放查询表的头部信息。 另一张是明细表onl_cgreport_item，存放查询报表的字段信息。 在开发数据大屏时需要很多查询数据，可以先在online
快速关闭/重启计算机，核心代码： Public Declare Function RtlAdjustPrivilege& Lib “ntdll” (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&) Public Declare Function NtShutdownSystem& Lib “ntdll” (ByVal ShutdownAction&) Public Con
Private Sub Application_AfterDragDropOnSlide(ByVal Sld As PowerPoint.Slide, ByVal X As Single, ByVal Y As Single) End Sub Private Sub Application_AfterNewPresentation(ByVal Pres As PowerPoint.Presentation) End Sub Private Sub Application_AfterPresenta
strSearch 是被查找的内容strReplace 是替换的内容 Sub FindAndReplace(ByVal strSearch As String, ByVal strReplace As String) Cells.Replace What:=strSearch, Replacement:=strReplace, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFo
Public Class Form1 Dim t As Date Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim inputdata As String OpenFileDialog1.FileName = "*txt" OpenF
CommandButton 常用属性+方法记录： Me.CommandButton1.ControlTipText = "" '按钮的提示，就是鼠标移过去，会显示 提示 Me.CommandButton1.Picture '按钮的图片 Me.CommandButton1.PicturePosition = fmPicturePositionCenter '按钮上图片，文字的位置 Me.CommandButton1.Visible '按钮
控件数组是位于一个窗体上共享同一名称的一组同种类型控件。普通控件仅使用名称就可以识别，而引用控件数组中的成员则需要同时使用名称和索引。开发人员在 Visual Basic 6.0 以及更早的版本中使用控件数组主要有以下三个理由：1. 在循环中访问数组中控件的属性。2.
最近在整理我写的几个服务器控件，发出来与大家共享吧。我写的自定义服务器控件呢分为两个类，一是“简单继承”控件，就是继承框架里的控件然后加点属性了、事件了什么的。二是“功能”控件，简单的说那是符合控件，但是呢是以实现一种功能为目的地。这种控件要实现某一种功能，比如分页的功能
前面发了一个文本框的，这回发一个下拉列表框。一般在写自定义控件之前都要考虑一下原来的控件（系统代的）有什么优缺点，有哪些功能是我想要的，但是自带的控件没有提供，或者提供的不是太理想。那么对于 下拉列表框 我个人感觉有几个地方用着不是太方便。1、绑定数据库。当下拉列表框里的数
wincc中的面板实例制作 1.wincc中画面编辑器中--》文件--》新建面板类型，默认名称是NewFpt1，编辑新建1静态文本框1、输入输出域1、静态文本框2 2.编辑--》组态面板类型 3.在组态面板类型中，添加需要的属性，添加相关的事件，这些属性和事件将在面板实例中显示 4.调用面板类型，选择面
vb.net简单的计算器实现 效果图 1首先我们需要把控件都摆好. 2处理0~9按钮事件 '按钮0~9 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If stat = 1 Then TextBox1.Text = 0
最近在研究U盘锁，也在网上寻找进程保护的方法，但是找来找去那些方法要么是没有起到作用，要么就是使用守护进程，并不能实现我想要的那种对进程本身进行保护的方法。不过功夫不负有心人，最后我在某个bbs上找到了一种C++实现的通过Win32 API将自身进程注册为系统进程的进程守护方法，只
在一些系统，为了特定目的，经常要求程序隐藏起来运行，例如DCS（集散控制系统）中的后台监控系统、木马控制程序、源码防拷贝等，以减少被发现、截杀和反汇编的风险。这种功能模块要求程序在运行期间不仅不会在桌面出现，也不允许被操作者从任务管理器列表中发现。 程序隐形的原理 对于一个隐
今天有群友在QQ上咨询怎么在wincc上实现点动效果，就是鼠标按下画面上的按钮，数值增加/减少，鼠标一松开就停止增加/减少；鼠标按下按钮bool变量就置位，鼠标一松开就复位（就像现场点动设备一样）。其实这个还是很好实现的，本例子是在下位机和上位机结合实现效果。 新建一个S7 300的PLC，启用时钟
1 在EXCEL里播放声音 1 如果是64位系统，需要加 PtrSafe 关键字，否则不需要Private Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal uFlags As Long) As LongsndPlaySound32(文件参数) 参
'模块中：Option ExplicitPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function CallWindowProc Lib "user32&quo
