摘要：private void toolStripButton11_Click(object sender, EventArgs e) { MapXLib.Style styleRegion = new MapXLib.StyleClass(); styleRegion.PickRegion(); axMap1.DefaultStyle = styleRegion; MapXLib.Layer lyr = axMap1.Layers[1]; lyr.Editable = tru... 阅读全文

摘要：1、Option Explicit '强制对模块内所有变量进行声明Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示Option Compare Text '字符串不区分大小写Option Base 1 '指定数组的第一个下标为 12、On Error Resume Next '忽略错误继续执行 VBA代码,避免出现错误消息3、On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置4、On Error GoTo 0 '恢复正常的错误提示5、App 阅读全文

摘要：If ActiveCell.Text = "" Then Exit SubDim Startrowno As Integer, Startcolno As Integer, Endrowno As Integer, Endcolno As IntegerStartrowno = Target.RowStartcolno = Target.ColumnEndrowno = Target.Rows.Count + Startrowno - 1Endcolno = Target.Columns.Count + Startcolno - 1ActiveSheet.Name = &q 阅读全文