byval

首页 > 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