#mqney

using System.Collections.Generic; using System.Reflection; using DevExpress.Data.Filtering; using DevExpress.Utils; using DevExpress.XtraEditors.Controls; using DevExpress.XtraEditors.Drawing; using DevExpress.XtraEditors.ListControls; using DevExpress.XtraEditors.Registrator; using DevExpress.XtraEditors.Repository; using DevExpress.XtraEditors.ViewInfo;

namespace CYYFCheckupMgr.OccupationalDisease.Util {    /// <summary>    /// RepositoryItemLookupEditmQney用于GridControl的模糊筛选控件    /// author CYTD Young    /// 2016-01-30 01:52:05    /// music: Pink Floyd - Have A Cigar    /// </summary>    public class RepositoryItemLookupEditmQney : RepositoryItemLookUpEdit    {        public const string EditNamemQney = "RepositoryItemLookupEditmQney";

       public override string EditorTypeName        {            get            {                return EditNamemQney;            }        }

       static RepositoryItemLookupEditmQney()        {            RegisterCustomEdit();        }

       public RepositoryItemLookupEditmQney()        {            AllowNullInput = DefaultBoolean.True;            NullText = "请选择或模糊查询";            ShowHeader = false;            ShowFooter = false;            AutoHeight = false;            PopupSizeable = false;            TextEditStyle = TextEditStyles.Standard;        }

       internal CustomLookUpListDataAdapter CustomDataAdapter        {            get { return (CustomLookUpListDataAdapter)DataAdapter; }        }

       public static void RegisterCustomEdit()        {            EditorRegistrationInfo.Default.Editors.Add(new EditorClassInfo(EditNamemQney,              typeof(LookUpEditmQney), typeof(RepositoryItemLookupEditmQney),              typeof(LookUpEditViewInfo), new ButtonEditPainter(), true));        }

       protected override LookUpListDataAdapter CreateDataAdapter()        {            return new CustomLookUpListDataAdapter(this);        }

       public override void Assign(RepositoryItem item)        {            BeginUpdate();            try            {                base.Assign(item);                RepositoryItemLookupEditmQney source = item as RepositoryItemLookupEditmQney;                if (source == null) return;            }            finally            {                EndUpdate();            }        }

   }

   internal class CustomLookUpListDataAdapter : LookUpListDataAdapter    {        public CustomLookUpListDataAdapter(RepositoryItemLookUpEdit item)            : base(item)        {

       }

       protected override string CreateFilterExpression()        {            if (Item.TextEditStyle == TextEditStyles.Standard)            {                string likeClause = "%" + FilterPrefix + "%";                List<CriteriaOperator> bops = new List<CriteriaOperator>();                foreach (LookUpColumnInfo column in Item.Columns)                    bops.Add(new BinaryOperator(column.FieldName, likeClause, BinaryOperatorType.Like));                bops.Add(new BinaryOperator(Item.DisplayMember, likeClause, BinaryOperatorType.Like));                return new GroupOperator(GroupOperatorType.Or, bops).ToString();            }            else                return base.CreateFilterExpression();        }

   } }

UseWaitCursor ：是否使用等待光标。Cursor光标

Control.CausesValidation 是/否属于验证范围。当别的控件引发验证事件时候，算不算上它。

ExportMode ：当有导出事件的时候，导出值value还是现实的文本text

HotTrack ：鼠标经过时候，是否引发事件比如radio的选中

BestFitMode ：窗口（弹出或下拉的）大小自适应模式

CaseSensitiveSearch：区分大小写

Function PY(TT As String) As Variant '自定义函数，目的：把一组汉字变为一组汉字拼音的第一个字母。 Dim i%, temp$    PY = ""    For i = 1 To Len(TT)         temp = Asc(Mid$(TT, i, 1))         If temp > 255 Or temp < 0 Then   '是汉字吗？             PY = PY & pinyin(Mid$(TT, i, 1)) '转化为拼音首字母，         Else             PY = PY & LCase(Mid$(TT, i, 1))  '转化英文字母         End If    Next i End Function Function pinyin(myStr As String) As Variant '自定义函数，目的：把单个汉字变为拼音的第一个字母。    On Error Resume Next    myStr = StrConv(myStr, vbNarrow)    If Asc(myStr) > 0 Or Err.Number = 1004 Then pinyin = ""    pinyin = Application.WorksheetFunction.VLookup(myStr, [{"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}], 2) End Function

上面这个M、N不好用。

下面这个不好用

Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(hzstring)) pystring = "" For hzi = 1 To hzpysum    hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))    Select Case hzpyhex      Case &HB0A1 To &HB0C4: pystring = pystring + "A"      Case &HB0C5 To &HB2C0: pystring = pystring + "B"      Case &HB2C1 To &HB4ED: pystring = pystring + "C"      Case &HB4EE To &HB6E9: pystring = pystring + "D"      Case &HB6EA To &HB7A1: pystring = pystring + "E"      Case &HB7A2 To &HB8C0: pystring = pystring + "F"      Case &HB8C1 To &HB9FD: pystring = pystring + "G"      Case &HB9FE To &HBBF6: pystring = pystring + "H"      Case &HBBF7 To &HBFA5: pystring = pystring + "J"      Case &HBFA6 To &HC0AB: pystring = pystring + "K"      Case &HC0AC To &HC2E7: pystring = pystring + "L"      Case &HC2E8 To &HC4C2: pystring = pystring + "M"      Case &HC4C3 To &HC5B5: pystring = pystring + "N"      Case &HC5B6 To &HC5BD: pystring = pystring + "O"      Case &HC5BE To &HC6D9: pystring = pystring + "P"      Case &HC6DA To &HC8BA: pystring = pystring + "Q"      Case &HC8BB To &HC8F5: pystring = pystring + "R"      Case &HC8F6 To &HCBF9: pystring = pystring + "S"      Case &HCBFA To &HCDD9: pystring = pystring + "T"      Case &HEDC5: pystring = pystring + "T"      Case &HCDDA To &HCEF3: pystring = pystring + "W"      Case &HCEF4 To &HD1B8: pystring = pystring + "X"      Case &HD1B9 To &HD4D0: pystring = pystring + "Y"      Case &HD4D1 To &HD7F9: pystring = pystring + "Z"      Case &HE7AD: pystring = pystring + "J"      Case &HE1B6: pystring = pystring + "X"

鸣谢：Senparc.Weixin，刘捷

using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.Mvc; using CYTD.WebChat.ClassLibrary; using System.Web.Configuration;

namespace CYTDWebChatMain.Controllers {    public class HomeController : Controller    {        public readonly string Token = "jasmine";        //public static readonly string Token = WebConfigurationManager.AppSettings["Token"];//与微信公众账号后台的Token设置保持一致，区分大小写。        //public static readonly string EncodingAESKey = WebConfigurationManager.AppSettings["EncodingAESKey"];//与微信公众账号后台的EncodingAESKey设置保持一致，区分大小写。        //public static readonly string AppId = WebConfigurationManager.AppSettings["AppID"];//与微信公众账号后台的AppId设置保持一致，区分大小写。        /// <summary>        /// 微信后台验证地址（使用Get）        /// </summary>        [HttpGet]        [ActionName("Index")]        public ActionResult Get(string signature, string timestamp, string nonce, string echostr)        {            if (CheckSignature.Check(signature, timestamp, nonce, Token))            {                return Content(echostr);//返回随机字符串则表示验证通过            }            else            {                return Content("failed:" + signature + "," + CheckSignature.GetSignature(timestamp, nonce, Token));            }        }

       /// <summary>        /// 用户发送消息后，微信平台自动Post一个请求到这里，并等待响应XML        /// </summary>        [HttpPost]        [ActionName("Index")]        public ActionResult Post(string signature, string timestamp, string nonce, string echostr)        {            if (!CheckSignature.Check(signature, timestamp, nonce, Token))            {                return Content("参数错误！");            }

           //var messageHandler = new CustomMessageHandler(Request.InputStream);//接收消息

           //messageHandler.Execute();//执行微信处理过程

           //return Content(messageHandler.ResponseDocument.ToString());//v0.7-            //return new WeixinResult(messageHandler);//v0.8+ with MvcExtension            return View();        }