windows mobile 6.5 蜂窝菜单排序工具

《windows mobile 6.5 蜂窝菜单排序工具》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、WindowsMobile6.5蜂窝菜单排序工具　　本文示例源代码或素材下载　　achine.OpenSubKey(SecurityShellStartInfoStart)　　　　　　　IfregKeyIsNothingThen　　　　　　　　　　　ExitFunction　　　　　　　EndIf　　　　　　　DimdtAsNens.Add(Name,System.Type.GetType(System.String))　　　　　　　dt.Columns.Add(Rank,System.Type.GetType(System.Int64))　　　　　　　dt.

2、Columns.Add(Favorite,System.Type.GetType(System.Boolean))　　　　　　　dt.Columns.Add(FavoriteOrder,System.Type.GetType(System.Object))　　　　　　　ForEachkeyAsStringInregKey.GetSubKeyNames　　　　　　　　　　　DimfileAsString=System.Environment.GetFolderPath(System.Environment.SpecialFolder.StartMenu)程序ke

3、y　　　　　　　　　　　IfNotkey.Endsachine.OpenSubKey(SecurityShellStartInfoStartkey)　　　　　　　　　　　　　　　DimRankAsLong=rk.GetValue(Rank)　　　　　　　　　　　　　　　DimFavoriteAsBoolean=rk.GetValue(Favorite)　　　　　　　　　　　　　　　DimFavoriteOrderAsByte()=rk.GetValue(FavoriteOrder)　　　　　　　　　　　　　　　Dimroe)=key　　　　　　　　　　　　　　

4、　rodvAsNeeASC　　　　　　　Returndv　　　EndFunction　　对项目进行排序　　　　　　　　　　　DimdrvAsDataRo,DataRodrv2AsDataRos.Item(Me.ListBox1.SelectedIndex+1),DataRoregKeyAsRegistryKey=Registry.LocalMachine.OpenSubKey(SecurityShellStartInfoStartdrv(Name),True)　　　　　　　　　　　DimregKey2AsRegistryKey=Registry.Loc12下一

5、页——感谢阅读这篇文章，..，alMachine.OpenSubKey(SecurityShellStartInfoStartdrv2(Name),True)　　　　　　　　　　　DimRankAsLong=regKey.GetValue(Rank)　　　　　　　　　　　DimRank2AsLong=regKey2.GetValue(Rank)　　　　　　　　　　　IfRank=Rank2ThenRank2=Rank2-1　　　　　　　　　　　regKey.SetValue(Rank,Rank2,RegistryValueKind.DFavoriteAsBoo

6、lean=regKey.GetValue(Favorite)　　　　　　　　　　　DimFavorite2AsBoolean=regKey2.GetValue(Favorite)　　　　　　　　　　　DimFavoriteOrderAsByte()=regKey.GetValue(FavoriteOrder)　　　　　　　　　　　DimFavoriteOrder2AsByte()=regKey2.GetValue(FavoriteOrder)　　　　　　　　　　　IfFavorite<>Favorite2Then　　　　　　　　　　　　　　　reg

7、Key.SetValue(Favorite,Favorite2,RegistryValueKind.DWord)　　　　　　　　　　　　　　　regKey2.SetValue(Favorite,Favorite,RegistryValueKind.DWord)　　　　　　　　　　　　　　　regKey2.SetValue(FavoriteOrder,FavoriteOrder,RegistryValueKind.Binary)　　　　　　　　　　　　　　　regKey.DeleteValue(FavoriteOrder)　　　　　　　　　　　EndIf　　　　

8、　　　　　　　IfFavoriteAn