- 2024-10-24忘记工程密码解决
OptionExplicitPrivateDeclareSubMoveMemoryLib"kernel32"Alias"RtlMoveMemory"_(DestinationAsLong,SourceAsLong,ByValLengthAsLong)PrivateDeclareFunctionVirtualProtectLib"kernel32"(lpAddressAs
- 2024-08-15旗帜标签制作,刀型标签制作,网络标签制作,自动生成标签
旗帜标签制作,刀型标签制作,网络标签制作,自动生成标签旗帜标签自动制作网线标签的制作非常让人头疼,网线标签和旗帜标签用标签打印机非常慢,而且价格昂贵,用A4纸打印标签虽然快速,节省资源但是排版确实大问题,总是对不齐,浪费非常多的标签纸,往往1毫米的误差就导致整张纸作废,很
- 2024-08-10VS2010旗舰版VB.NET版本音频剪辑代码2024-8-10
ImportsSystem.ComponentModelImportsSystem.IOImportsSystem.DiagnosticsImportsSystem.DrawingImportsSystem.Windows.FormsPublicClassForm1PrivateWithEventsbgWorkerAsNewBackgroundWorkerPrivateffmpegPathAsString=“C:\ffmpeg-master-lates
- 2024-08-08VB.NET钢琴MIDI简谱播放器代码QZQ2024-8-7
ImportsSystem.Runtime.InteropServicesPublicClassForm1'义WindowsAPI函数<DllImport(“winmm.dll”)>PrivateSharedFunctionmidiOutGetNumDevs()AsIntegerEndFunction<DllImport("winmm.dll")>PrivateSharedFunctionmidiOutGet
- 2024-07-13AutoCAD VBA 模态窗体焦点处理
引用的win32apiOptionExplicitDeclarePtrSafeFunctionSetParentLib"user32"(ByValhWndChildAsLong,ByValhWndNewParentAsLong)AsLongDeclarePtrSafeFunctionCoCreateGuidLib"ole32.dll"(GAsGUID)AsLongDeclarePtrSafeFunct
- 2024-02-17PPT事件
PPT的事件无法在slde模块直接录入,需要通过创建类并实例化来完成一、在class模块1OptionExplicit2PublicWithEventspptAppAsApplication34PrivateSubClass_Initialize()5MsgBox"实例化了PPT类"6EndSub78PrivateSubpptApp_WindowSelection
- 2023-12-07学习笔记----------------------SendMessage 详解【转】
SendMessage函数的常用消息及其应用函数原型:DeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,_ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong 其中四个参数的含义和说明如下:1.hWnd:对象的句柄。希
- 2023-11-10After page postback, DropDownList item attributes "color" cleared ?
DropDownList1.SelectedItem.Attributes.Add("style","Color:GREEN")Thisissetwhenapersonclicksabutton,"resubmitorder"...thentheselecteditemisturnedgreensotheyknowthey'vealreadyfixedthatorderitem
- 2023-11-07GridView根据某行的内容显示或隐藏Edit按钮
ProtectedSubgdv_RowDataBound(ByValsenderAsObject,ByValeAsGridViewRowEventArgs)Handlesgdv.RowDataBoundIfe.Row.RowType=DataControlRowType.DataRowThenIfCType(e.Row.FindControl("lblVerifiedBy"),Label).T
- 2023-10-29自制Windows激活工具
整体效果大概就是这样吧,,,,在Lab-WorkwithMicrosoftOfficeintegration-Training|MicrosoftLearn中测试,效果还不错。源代码 PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clic
- 2023-10-07VBA读取ini配置相对应的内容
PrivateDeclareFunctionGetPrivateProfileStringLib"kernel32"Alias"GetPrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsString,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAs
- 2023-08-28P/Invoke 回调示例
回调示例文章2014年10月17日 在本文中声明原型调用函数此示例演示如何将委托传递给需要函数指针的非托管函数。委托是一个可以保存方法引用的类,相当于类型安全的函数指针或回调函数。Microsoft.NETFrameworkSDK包含此示例的完整VisualBasic.NET和C#版本
- 2023-08-01Excel VBA 窗体UserForm制作菜单栏与添加窗体最大化最小化功能(转载)
窗体'--------------------------------------------------------'->Forms'Module'ClassModules'--------------------------------------------------------OptionExplicitPrivateDeclareFunctionFindWindowLib"user32&qu
- 2023-07-06vba 二维码生成
PrivateDeclarePtrSafeFunctionOpenProcessLib"kernel32"(ByValdwDesiredAccessAsLong,ByValbInheritHandleAsLong,ByValdwProcessIdAsLong)AsLongPrivateDeclarePtrSafeFunctionWaitForSingleObjectLib"kernel32"(ByValhHa
- 2023-07-01VBA控制鼠标键盘
'sleep函数PrivateDeclareSubSleepLib“kernel32”(ByValdwMillisecondsAsLong)'获取鼠标坐标PrivateTypePOINTAPIXAsLongYAsLongEndTypePrivateDeclareFunctionGetCursorPosLib“User32”(lpPointAsPOINTAPI)AsLong'移动鼠标
- 2023-06-13asp中一个函数调用返回多参数
asp中一个函数调用返回多个参数ByVal是传递值源数据不会被修改,你可以把这个值当作自己的局部变量来使用;ByRef是传递地址,源数据可能被修改,你对这个变量的操作将对你传入的那个变量产生影响,就像指针的感觉最近看很多成熟的cms系统中就用ByVal先看下面的例子文件名称:ByVal.
- 2023-04-15VBA一例:如何保持文本框焦点
缘起在Excel的VBA编程中,设计一个用于录入的用户窗体,该窗体包含1个文本框和2个按钮,文本框用于扫描枪的录入。要求扫描枪可以连续录入,即每扫描完一个条码,文本框自动清空,文本框继续获得焦点。 我们知道扫描枪录入实际上等同于往文本框录入一段字符串并回车,那么刚才的要求理
- 2023-04-15[vba]-Excel-VBA操作文件四大方法之四(转)
四、利用API函数来处理文件通过前面三种方法的介绍,你是否已经觉得足够了?是的,前面的方法完全可以应付几乎所有的文件操作。但是为了普及一下API,展示一下API的魅力,最后向大家介绍一下如何利用API函数来处理文件。另一方面也是本人对API情有独钟,为她做一下广告,呵呵。大家
- 2023-03-12VB6.0window消息处理方式
AttributeVB_Name="Module1"OptionExplicitPublicConstWM_NCHITTEST=&H84'移动鼠标,按住或释放鼠标时产生此消息PublicConstHTCAPTION=2'不返回给系统Public
- 2023-01-29VB6用API实现繁体简体转换
PrivateDeclareFunctionLCMapStringLib"kernel32"Alias"LCMapStringA"(_ ByValLocaleAsLong,_ ByValdwMapFlagsAsLong,_ ByVallpSrcSt
- 2023-01-29如何获取Windows应用程序列表
Windows任务管理器的应用程序栏包含任务窗口的列表。要获取此列表,窗口必须满足以下几个条件:(1)必须可见(2)包含一个标题(3)不能被其他窗口包含下面我给出源程序和调用示
- 2023-01-27VB实现文字“闪入”显示的特殊效果
作者:刘涛责任编辑:方舟对于编程爱好者来说,开发软件过程中文字显示处理是一项很重要的内容,它的显示效果的好坏,对程序的界面效果有很大的影响,如
- 2023-01-26一个可逆加密的例子
一个可逆加密的例子http://lucky_elove.www1.dotnetplayground.com/下面的这个例子实现了一个可逆加密的例子功能。代码很简单,这里就不多解释了。代码如下
- 2023-01-15取得本机IP地址的方法两则
方法1:(控件法)新建工程,在工程中加入Winsock控件和一个按钮控件代码:OptionExplicitPrivateSubCommand1_Click() MsgBox"当前计算机网卡IP:"&Winsock1.LocalIPEndSub
- 2023-01-15获取鼠标指针在ListBox中的行位置
Listbox控件没有提供这个属性值可以调用,这里我写了个完整的演示程序,供大家参考.新建一个工程,在Form1窗体上加上一个ListBox和一个Label.在窗体代码中粘贴以下程序,然后运行即可