星期六

2006年7月12日

把日期格式2007/7/1转换成 Jul,12,2007

摘要: DateTime.Parse("2007/7/12").ToString("MMM,dd,yyyy",new System.Globalization.CultureInfo("en-US")) 阅读全文

posted @ 2006-07-12 19:08 星期六 阅读(273) 评论(0) 推荐(0) 编辑
把中文文字转换为拼音……

摘要: 下面是程序的源代码:/**//**//**//// /// A conversion class./// Use this class to transform CHS words to PinYin./// public class Chs2Py{ private static int[] pyvalue = new int[] { ... 阅读全文

posted @ 2006-07-12 18:55 星期六 阅读(418) 评论(0) 推荐(0) 编辑
TREEVIEW控件节点上单击鼠标右键时获得该节点的节点名

摘要: Sample code as follows://in your mouse-down eventif( e.Button == MouseButtons.Right ){ TreeNode tnCurrent = yourTreeView.GetNodeAt( e.X, e.Y ); if( tnCurrent != null ) MessageBox.Sho... 阅读全文

posted @ 2006-07-12 18:44 星期六 阅读(516) 评论(0) 推荐(0) 编辑

2006年6月29日

使最小化窗体的窗体在还原时执行messagebox.show("已还原")

摘要: Private Sub Form1_Resize()Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize Static isFirstLoad = True If isFirstLoad = False And WindowState... 阅读全文

posted @ 2006-06-29 16:43 星期六 阅读(276) 评论(0) 推荐(0) 编辑
禁止用户拖动窗体

摘要: class f:System.Windows.Forms.Form{ protected override void WndProc(ref System.Windows.Forms.Message m) { base.WndProc(ref m);//基类执行 if(m.Msg == 132)//鼠标的移动消息(包括非窗口的移动) { ... 阅读全文

posted @ 2006-06-29 13:44 星期六 阅读(562) 评论(0) 推荐(0) 编辑

2006年6月25日

窗体通讯

摘要: 窗体通讯#Region "窗体通讯" Private Shared m_vb6FormDefInstance As PCreatForm Private Shared m_InitializingDefInstance As Boolean Public Shared Property DefInstance()Property DefInstance() As PCreatFo... 阅读全文

posted @ 2006-06-25 13:22 星期六 阅读(111) 评论(0) 推荐(0) 编辑

2006年6月23日

关闭指定进程

摘要: '判断系统是否已经被打开 Dim lnPress() As Process = System.Diagnostics.Process.GetProcessesByName("Liaoning") If lnPress.Length > 1 Then MessageBox.Show("您已经打开一个防汛水情值班系统,不能打开多个系统。... 阅读全文

posted @ 2006-06-23 14:22 星期六 阅读(366) 评论(0) 推荐(0) 编辑

2006年6月20日

用excel打印报表

摘要: 用代码设置excel单元格边框 eSheet.Range("C" & sPoint).BorderAround(1, 2, Excel.XlColorIndex.xlColorIndexAutomatic, 1) eSheet.Range("C" & sPoint).Value = r("STNM") '站名 其他: //***** ... 阅读全文

posted @ 2006-06-20 16:32 星期六 阅读(1230) 评论(0) 推荐(0) 编辑

2006年6月19日

topMap给实体设置数值

摘要: Private Sub MenuItem2_Click()Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click Me.StatusBar1.Text = "稍等." Dim layCount As Object... 阅读全文

posted @ 2006-06-19 20:54 星期六 阅读(278) 评论(0) 推荐(0) 编辑

2006年6月13日

返回指定长度的字符(已字节为单位)

摘要: 一、 Dim arrb() As ByteDim desStr As Stringarrb = Encoding.Default.GetBytes(x)desStr = Encoding.Default.GetString(arrb, 0, 255) 二、 Public Class BLStringClass BLString ''' ----------------------------... 阅读全文

posted @ 2006-06-13 16:16 星期六 阅读(338) 评论(0) 推荐(0) 编辑