首页 > TAG信息列表 > byval

nxopen UG8.5 vb.net 点到面的距离

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,

nxopen 点到面的距离 vb.net

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 判断文件是否存在

方法一:    在编程时经常会用到判断文件是否存在,比如对文件做读写操作前,或是判断密钥文件是否存在等。判断的方法有很多,有些方法虽很实用,但有点繁琐。其实还可以有更简单的方法,就是使用vb 6.0提供的filesystemobject对象。  filesystemobject对象不是vb内置对象,使用前必须首

DataGridView EditingControl 取得当前单元格选取的内容

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    

vb.net(C#) 改变COMBOBOXD的下拉箭头的小技巧

原理:有时候我们嫌combobox自带的下拉箭头不符合整体界面风格,网上有集成改写combobox的方法,太复杂,而且本人试过也不够完美。我的做法是在combobox上面 贴一个LABEL,设置label的大小为下拉箭头区域的大小,正好覆盖掉combobox自己的下拉箭头,为label增加click(Lb_Click)事件,另外禁用了c

OutPutArrtoCSV

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 & “” &

vb利用类模块获得鼠标滚轮(滑轮)事件

'添加一个类模块,模块名称设置为: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检查某个软件是否安装及其安装路径 前言实现解释 前言 有时候需要用VBA启动其它程序处理事情,例如整个处理流程中需要先解压缩文件。此时,主动探测用户电脑上是否已安装相应的软件及安装位置就比较重要。 实现 通过调用Windows API来实现 Private Declare Function Re

VB 读写ini的代码

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

VBA制作jeecgboot代码生成器

在jeecgboot中制作查询报表非常方便,可以在online报表配置中快速完成。 在数据库中可以看到对应的两张表存放这些配置,一张是onl_cgreport_head,存放查询表的头部信息。 另一张是明细表onl_cgreport_item,存放查询报表的字段信息。 在开发数据大屏时需要很多查询数据,可以先在online

VB快速关闭/重启计算机

快速关闭/重启计算机,核心代码: Public Declare Function RtlAdjustPrivilege& Lib “ntdll” (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&) Public Declare Function NtShutdownSystem& Lib “ntdll” (ByVal ShutdownAction&) Public Con

PowerPoint Application事件

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

Excel 怎么用VBA代码快速查找替换指定字符

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

vb.net 打字练习

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

vba-commandbutton,textbox,label最常用方法与属性以及个别事件

CommandButton 常用属性+方法记录: Me.CommandButton1.ControlTipText = "" '按钮的提示,就是鼠标移过去,会显示 提示 Me.CommandButton1.Picture '按钮的图片 Me.CommandButton1.PicturePosition = fmPicturePositionCenter '按钮上图片,文字的位置 Me.CommandButton1.Visible '按钮

在VB.NET中使用控件数组

控件数组是位于一个窗体上共享同一名称的一组同种类型控件。普通控件仅使用名称就可以识别,而引用控件数组中的成员则需要同时使用名称和索引。开发人员在 Visual Basic 6.0 以及更早的版本中使用控件数组主要有以下三个理由:1.        在循环中访问数组中控件的属性。2.  

[自定义服务器控件] 第一步:文本框。

最近在整理我写的几个服务器控件,发出来与大家共享吧。我写的自定义服务器控件呢分为两个类,一是“简单继承”控件,就是继承框架里的控件然后加点属性了、事件了什么的。二是“功能”控件,简单的说那是符合控件,但是呢是以实现一种功能为目的地。这种控件要实现某一种功能,比如分页的功能

[自定义服务器控件] 第二步:下拉列表框。

前面发了一个文本框的,这回发一个下拉列表框。一般在写自定义控件之前都要考虑一下原来的控件(系统代的)有什么优缺点,有哪些功能是我想要的,但是自带的控件没有提供,或者提供的不是太理想。那么对于 下拉列表框 我个人感觉有几个地方用着不是太方便。1、绑定数据库。当下拉列表框里的数

wincc中面板实例和画面窗口示例

wincc中的面板实例制作 1.wincc中画面编辑器中--》文件--》新建面板类型,默认名称是NewFpt1,编辑新建1静态文本框1、输入输出域1、静态文本框2 2.编辑--》组态面板类型 3.在组态面板类型中,添加需要的属性,添加相关的事件,这些属性和事件将在面板实例中显示 4.调用面板类型,选择面

vb.net简单的计算器实现

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

[vb.net] 通过注册系统实现进程进程保护(非守护进程方法)

  最近在研究U盘锁,也在网上寻找进程保护的方法,但是找来找去那些方法要么是没有起到作用,要么就是使用守护进程,并不能实现我想要的那种对进程本身进行保护的方法。不过功夫不负有心人,最后我在某个bbs上找到了一种C++实现的通过Win32 API将自身进程注册为系统进程的进程守护方法,只

用VB实现“木马”式隐形运行程序

在一些系统,为了特定目的,经常要求程序隐藏起来运行,例如DCS(集散控制系统)中的后台监控系统、木马控制程序、源码防拷贝等,以减少被发现、截杀和反汇编的风险。这种功能模块要求程序在运行期间不仅不会在桌面出现,也不允许被操作者从任务管理器列表中发现。 程序隐形的原理 对于一个隐

搬家第15天-186.Step7v5.5+WinccV7.3实现点动效果

今天有群友在QQ上咨询怎么在wincc上实现点动效果,就是鼠标按下画面上的按钮,数值增加/减少,鼠标一松开就停止增加/减少;鼠标按下按钮bool变量就置位,鼠标一松开就复位(就像现场点动设备一样)。其实这个还是很好实现的,本例子是在下位机和上位机结合实现效果。 新建一个S7 300的PLC,启用时钟

VBA关于声音的多种实现方法

    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