摘要： 禁止Form窗口调整大小方法：FormBorderStyle 设为FixedSingle；不能使用最大化窗口： MaximuzeBox 设为False；不能使用最小化窗口：MinimizeBox 设为False；禁止combobox输入方法：将DropDownStyle 设为DropDownList 阅读全文

摘要： using System;using System.Collections.Generic;using System.Runtime.InteropServices;using System.Windows.Forms;namespace drmaple{ class HotKey { //如果函数执行成功，返回值不为0。 //如果函数执行失败，返回值为0。要得到扩展错误信息，调用GetLastError。 [DllImport("user32.dll", SetLastError = true)] public static... 阅读全文

摘要： winForm 应用开发，大都离不开winFrom + toolBar/Menu + some other Controls的模式。其中快捷键的处理，我5年前就遇到了，现在发现还有人犯这个错误，觉得着实需要讲一下：很多输入型控件都支持常用的Ctrl + C, Ctrl + V, Ctrl + X等热键，WinForm 在KeyPreview=true时也会捕捉这些快捷键被触发的Windows消息。如果winFrom/ToolBar/Menu/Other Control这些控件，对快捷键都有处理，上级控件只要设置e.SuppressKeyPress属性值(Boolean 类型)，就可以选择是否把 阅读全文

摘要： 这里的快捷键并非系统全局快捷键。仅是普通的当窗体在焦点内是发生。有很多种方法，这里列举几种项目中使用到的方法。Alt+*（一般控件快捷键） 在大家给button、label、menuStrip等控件设置Text属性时 这个比较简单，只需为该控件的Text属性声明时加上”(&A)”,”(&D)” 之类的标识，例如一个Button按钮的Text属性为：this.btnOK.Text=”确定(&A)”;Ctrl+*(组合键) 当在某个窗体上按下一个组合键时发生。常用的如：打印(Ctrl+P),保存(Ctrl+S)…等等。 首先需设置窗体的KeyPreview（向窗体注册键盘事 阅读全文

摘要： 调整默认office版本 开始----运行----粘贴《office2003》C:\Program Files\Microsoft Office\Office11\excel.exe" /regserverC:\Program Files\Microsoft Office\Office11\POWERPNT.EXE" /regserverC:\Program Files\Microsoft Office\Office11\WINWORD.EXE" /regserver《office2007》C:\Program Files\Microsoft Office\Off 阅读全文

摘要： 如何获取DLL文件自身的版本信息如何使用程序获取 AssemblyInfo.cs文件中定义的版本相关信息就是这些下面信息：[assembly: AssemblyTitle("")][assembly: AssemblyDescription("")][assembly: AssemblyConfiguration("")][assembly: AssemblyCompany(")][assembly: AssemblyProduct("")][assembly: AssemblyCopyright(&qu 阅读全文

摘要： Case 语句If...Then…Else 语句适合选项较少的情况，如果有很多选项的话利用If 语句就比较麻烦，在这种情况下，Case 语句就容易多了。Case 语句的语法如下： case of:;:;else;end; 下面这个例子中的S 为Char 类型。当用户输入一个字符后按回车键确认后判断变量S，如果是小写或大写字母将显示“字符”，如果是数字，则显示“数字”，其余的字符就显示“其他”，判断语句如下： varS:Char;beginReadln(S);case S of’a’..’z’, ’A’..’Z’:Writeln(’字符’);’0’..’9’:Writeln(’数字’);els. 阅读全文

摘要： 获得系统当前时间 本例中主要应用了FormatDateTime函数，此函数主要用于将日期时间格式化为指定的字符串。利用该函数可以输出许多形式的时间格式。 程序运行结果如图6.1所示主要代码如下： procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := FormatDateTime('hh:nn:ss',Now()); end; 获得系统当前日期 当用户单击窗体中的按钮时，程序会利用DateTimeToStr函数将当前日期转换为一个字符串显示在标签上。 ... 阅读全文

摘要： listbox删除删除选中的某个：procedure TForm1.Button1Click(Sender: TObject); var i:integer;begin i:=0; while i 0) then begin Items.Move(ItemIndex, ItemIndex - 1); lst2.SetFocus; lst2.Selected[ActiveItem - 1] := True; end; end;end;向下移动procedure TFormMain.RzBmpButton6Click(Sender: TObject);v... 阅读全文

摘要： format(date$,"YYYYMMDD") & format(time$,"HHMMSS") 阅读全文