Public Function getAttr(ByVal obj As Object, ByVal attr_name As String) As Object
Dim attrs As Object
Dim attr As IAttribute
attrs = obj.AttrsEx1(True, False)
Dim i As Integer
For i = 0 To UBound(attrs)
attr = attrs(i)
If attr.Name = attr_name Then
Return attr
End If
Next
Return Nothing
End Function
Public Function getAttrValue(ByVal attr_point As IAttribute, ByVal type_str As String, Optional ByVal unit_str As Integer = 11) As String
getAttrValue = ""
If type_str = "Int" Then
getAttrValue = Str(attr_point.IntVal)
ElseIf type_str = "String" Then
getAttrValue = attr_point.StrVal
ElseIf type_str = "Length" Then
getAttrValue = Str(attr_point.Length(unit_str))
ElseIf type_str = "Double" Then
getAttrValue = Str(attr_point.DoubleVal)
ElseIf type_str = "AREA" Then
getAttrValue = Str(attr_point.Area(unit_str))
ElseIf type_str = "ENUM" Then
getAttrValue = attr_point.StrVal
ElseIf type_str = "Boolean" Then
getAttrValue = attr_point.BoolVal
End If
Return getAttrValue
End Function
Function setAttribute(ByVal obj As Object, ByVal attr_name As String, ByVal attr_type As String, ByVal attr_value As String, Optional ByVal attr_unit As Integer = 11) As Boolean
Dim attrMod As IAttributesModifier
attrMod = AM.AttributesModifier(obj)
If attr_type = "String" Then
Call attrMod.SetString(attr_name, attr_value)
ElseIf attr_type = "ENUM" Then
Call attrMod.SetString(attr_name, attr_value)
ElseIf attr_type = "Double" Then
Call attrMod.SetDouble(attr_name, attr_value)
ElseIf attr_type = "Length" Then
Call attrMod.SetLength(attr_name, attr_value, attr_unit)
ElseIf attr_type = "Int" Then
Call attrMod.SetInteger(attr_name, attr_value)
ElseIf attr_type = "Area" Then
Call attrMod.SetArea(attr_name, attr_value, attr_unit)
ElseIf attr_type = "Boolean" Then
Call attrMod.SetBoolean(attr_name, attr_value)
End If
attrMod.Run()
If statusCheck(attrMod) = False Then
Return False
End If
Return True
End Function
Public Function statusCheck(ByVal obj As Object) As Boolean
statusCheck = True
If obj.ErrorStatus <> 0 Then
MsgBox(obj.ErrorMessage)
Return False
End If
End Function
-
等级
本版专家分：374结帖率 99.11% -
拜托C#大神将以下VB.Net代码翻译成C#，不要用工具或软件,本人刚学C#,稍复杂的修改不会，那样根本用不了，多谢了！
展开阅读全文
-
等级
本版专家分：374
-
大神们帮帮手，给点建议也好，谢谢了
-
等级
本版专家分：421091勋章
-
- 签到新秀
-
-
名人
2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
-
- 状元 2013年 总版技术专家分年内排行榜第一
-
- 探花 2014年 总版技术专家分年内排行榜第三
-
-
帮你看了下，这代码很规则，完全可以用机器自动转。
-
等级
本版专家分：374
-
这是我自己写的，用软件转换出错了不会修改。。。
-
等级
本版专家分：10 -
主要是 你Object 怎么会有AttrsEx1方法，应该是vb支持匿名方法，但是C#走不通，所以不清楚你obj.AttrsEx1(True, False)这个哪里来，obj明明只有object方法啊
-
等级
本版专家分：374
-
版主，麻烦你帮忙删除此贴，多谢！
-
等级
本版专家分：1268 -
在线工具翻译下即可，除非语法有不一致，要不然都可以通过的
-
等级
本版专家分：3848 -
下载 SharpDevelop 4.4 ，然后新建一个VB。net 项目 ，创建一个类 ，把上面的方法贴上，编译通过 后，右键项目，有一栏是转项目的，可以vb.net转c# 的
-
等级
本版专家分：3848
-
不过 复杂的不要奢望完美转换，不过你那些简单 的应该可以的
-
等级
本版专家分：4384
-
IAttribute getAttr(object obj, string attr_name)
{
var attrs = obj.AttrsEx1(true, false);
foreach (var attr in attrs)
{
if (attr.Name = attr_name)
return attr;
}
}
string getAttrValue(IAttribute attr_point, string type_str, int unit_str = 11)
{
switch (type_str)
{
case "Int": return attr_point.IntVal.ToString();
//.....
default: return "";
}
}
bool setAttribute(object obj, string attr_name, string attr_type, string attr_value, int attr_unit = 11)
{
IAttributesModifier attrMod = AM.AttributesModifier(obj);
switch (attr_type)
{
case "String":
Call attrMod.SetString(attr_name, attr_value)
break;
//......
}
attrMod.Run();
if (!statusCheck(attrMod)) return false;
return true;
}
bool statusCheck(object obj)
{
if (obj.ErrorStatus != 0)
{
MessageBox.Show(obj.ErrorMessage);
return false;
}
return true;
}
-
等级
本版专家分：374
-
感谢9楼的回复，最近没有时间研究这个，有空再看吧。
- 求助一个vb.net无法向NVelocity模板引擎传递参数的问题
我没找到vb.net的资料就用C#的翻译成了下面vb.net代码，我是想把一个类的实例作为参数传给模板，但模板并未收到son的数据，请各位前辈帮忙看看，字符串类型和数值类型都以传递，唯独类的实例不可以传递，代码如下： ...
- .NET常见面试题
一、 .NET基础部分 Linq查询，lambda表达式 LINQ（Language Integrated Query，语言集成查询）提供了一种跨数据源和数据格式的统一模型，实现查询。主要包括三个部分：LINQ to Objects、LINQ to XML、LINQ ...
- 【CSDN 专访刘洪峰】我为什么坚守了.NET技术十多年
【说明】这是一篇关于我的CSDN专访文章文章，原文链接：http://www.csdn.net/article/2014-12-19/2823223/1 刘洪峰（博客），网名叶帆，叶帆科技创始人兼CEO，前微软（中国）.NETMicroFramework开发团队成员，...
- C#微软培训资料
18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
- C#微软培训教材（高清PDF）
18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
- Web.config详解＋asp.net优化
Web.config详解＋asp.net优化（1）一、认识Web.config文件Web.config 文件是一个xml文本文件，它用来储存 asp.NET Web 应用程序的配置信息（如最常用的设置asp.NET Web 应用程序的身份验证方式），它可以出现在应用...
- NET学习资源收集
日期：2006-4-19[大 中 小] ...http://blog.csdn.net/liusylon/不错...名称：快速入门 地址：http://chs.gotdotnet.com/quickstart/ 描述：本站点是微软.NET技术的快速入门网站，我们不必再安装.NET Framewo...
- NET学习资源收集
http://blog.csdn.net/liusylon/ 不错的一个blog 名称：快速入门 地址：http://chs.gotdotnet.com/quickstart/ 描述：本站点是微软.NET技术的快速入门网站，我们不必再安装.NET Framework中
- Web.config详解＋asp.net优化（1）
一、认识Web.config文件Web.config 文件是一个xml文本文件，它用来储存 asp.NET Web 应用程序的配置信息（如最常用的设置asp.NET Web 应用程序的身份验证方式），它可以出现在应用程序的每一个目录中。当你通过.NET...
- Win CE开发特性及忠告
Windows CE与平台开发 Windows CE是微软为嵌入式设备打造的操作系统，而嵌入式设备可谓多种多样，这就要求CE操作系统必须是可定制的，所以微软将Windows CE设计为模块化的操作系统。说简单点，我们可以把Windows CE...
- CSDN Blog 2005年08月08日 帖子列表：
http://blog.csdn.net/Article/D/200508/20050808/index.html CSDN Blog 2005年08月08日 帖子列表：成为技术传播者（一）：写在前面CommunityServer研究（一） 安装什么是爱情 CSDN 即兴言论(FengYuanMSFT (袁峰 ...
- Win CE开发特性及忠告
最近一段时间，移动设备开发越来越多的成为了程序员社区的话题。移动设备主要包括智能手机和PDA，是嵌入式开发中很重要的一个方向。在智能手机领域被大多数手机厂商支持的J2ME无疑是领头羊，微软CE平台的SmartPhone...
- Redis 介绍-- Redis 3.0 官方文档的翻译版
转 https://redis.io/topics/introduction 此文由powersoft · 更新于 2018-09-30 10:00:44 感觉powersoft的付出和分享，给点个赞先你啊, :) ...Redi...
- 插件体系结构软件开发方法研究
SharpDevelop是采用微软.NET技术基于插件树体系结构开发的成功的应用和影响广泛的开源的集成开发环境。接着本文对SharpDevelop进行了仔细研究，分析了它的插件管理程序的实现细节和如何用插件组织应用程序。最后本文...
- 来，创建一个高效的IMEI编码生成器
话说，今天下午群里面有个同学求助一段代码。 他想问的是，这个tempimei[j * 2] - 0x30是啥子意思？ 0x2. 其实这是很常见的一种写法 我们留意到tempimei这个变量其实是一个字符串。在.NET中，对一个字符串取...
- 总体上说,是c++ builder胜于VC++,DELPHI是最好
总体上说,是c++ builder胜于VC++,DELPHI是最好 2011年09月30日 偶然来找一个文件，却发现这里关于vc++和delphi的讨论很是激烈。看了大家写的一些文章，觉得有些看法正确，有些就很偏颇甚至错误(也许无知？...
- AO入门闲谈
1、选择开发语言 从程序员角度来说，要进行AO开发首先遇到的问题就是选择何种语言开发，ESRI支持VB、C++、.Net等等，各位兄弟姐妹拿手的语言也不同，有的C... 从个人角度觉得：主选语言VB，其它 C#.net、VB.net，C
- vs2008 相关更新
ASP.NET MVC 框架路线图更新 【原文地址】ASP.NET MVC Framework...去年的十二月份，作为ASP.NET 3.5 Extensions CTP版的一部分，我们发布了新ASP.NET MVC 框架的第一个预览版。我也写了几个博客帖子，对该框架到...
- 再谈Delphi vs VC++(非常精彩)
（mail:jiangtao@csdn.net）偶然来找一个文件，却发现这里关于vc++和delphi的讨论很是激烈。看了大家写的一些文章，觉得有些看法正确，有些就很偏颇甚至错误(也许无知？很抱歉我这样说:-)。我无意与任何人争论，更...
- 关于haskell的讨论
以下是我和一个网友对haskell的讨论，记录在下面。以后有讨论时将在后面追加。 2011年9月24日： Parker says: (下午10:52:06) 关于两个世界体系的对话： 函数编程语言与命令编程语言，这篇文章你看过没。...
- Redis 3.0 中文版
此文由powersoft · 更新于 2018-09-30 10:00:44 感觉powersoft的付出和分享，给点个赞先你啊, :) Redis 3.0.0 正式版终于到来了！最重要的新特性是集群（Redis Cluster），提供 Redis 功能子集（比如不支持...
- 编程新手导论
第二部分 导论，这一部分主要是关于编程的导论， (要懂得一点思想具备一点常识)《设计，编码，，与软工》（编程与思想）这一章解释了三种思想，原语，抽象，组合，，和软件开发的二个重要过程，，软件工程的相关...
- 常见30种数学建模模型
常见的30种数学模型，比较详细，非常适合搞数学建模的学生使用
- matlab教程ppt(完整版).pdf
MATLAB信号处理详解 结合MATLAB最新版本系统地介绍信号处理及现代信号处理或者非平稳信号处理(包括信号处理、阵列信号处理、时频分析及高阶谱分析)的基本理论及在工程应用中的一些基本方法；详细地介绍MATlLAB工具箱函数的用法；最后结合一些应用实例，说明基于MATLAB进行分析与设计的方法。 《MATLAB信号处理》首次将信号处理涉及的各种MATLAB工具箱全面加以说明分析，简明扼要地介绍相关领域的基本概念和基本理论，重在讲述有关基本理论和物理背景，避开繁复的推导和中间过程，结合编程应用介绍工具箱函数的功能及用法，并且通过各种应用实例阐述如何利用MATLAB工具箱来解决工程应用问题。
- 2020年五一赛B题论文
自己做的五一赛论文，代码数据都在附录。本文针对股票投资组合问题进行了研究，建立了投资效用与多目标规划模 型，运用了历史模拟、灰色关联等方法，旨在确定股票投资组合策略。
- Qt图形视图框架详解
介绍Qt中的Graphics View Framework，涉及View、Scene、Item的关系，如何自定义QGraphicsItem、处理Item之间的关联、如何布局及定义自己的布局Item、如何变幻Item、如何应用动画、如何处理拖放、如何给Item应用图形效果，提供拼图游戏、画板两个有用的实例。 通过本课程的学习，能够掌握Qt Graphics View Framework的基本应用，使用图形视图框架开发需要丰富的GUI效果的应用软件以及需要维护大量图元的、对图形界面层次要求较高的应用。
- Java面试题大全（备战2021）
这本面试手册包含了Java基础、Java集合、JVM、Spring、Spring Boot、Spring Cloud、Mysql、Redis、RabbitMQ、Dubbo、Netty、分布式及架构设计等方面的技术点。内容难度参差，满足初中高级Java工程师的面试需求。
- 波士顿房价预测数据及代码
本资源包含数据，代码，解释，相应的文件。代码是练习用的，文章中的代码都可以运行出来，是很好的一个练手项目。
- ARIMA模型-matlab代码
ARIMA模型-matlab代码，可以根据自己的实际情况进行参数调节，实现所需要的效果。
- 数模_改进SEIR模型的matlab代码.zip
各种基于SEIR模型的改进算法代码、Python代码，还包含Si，sir，sis的代码，是做数学建模比赛整理的资料，具全，带论文。研究COVID-19的传播过程和受感染人数的变化规律，是探索如何制止COVID-19蔓延的重要环节。本文针对COVID-19的防控问题，通过对各个国家疫情状况数据的分析，采用……方法，建立……模型，获得……，同时以……为优化目标，获得……最优模型。 针对问题一，为了确定COVID-19的传播系数。通过对国家卫健委公布的1月21日～2月5日的疫情数据分析，考虑易感人群(S)、潜伏人群(E)、感染人群(I)、治愈人群(R)建立SEIR模型，基于SEIR模型计算的COVID-19的传播系数(R0)在3.096～3.613之间。 针对问题二，针对不同地区采取的不同防控策略建立模型分析、预测未来的疫情数据。通过分析COVID-19存在潜伏期且康复后二次感染的概率低的传播特性，结合国内公开的疫情防控数据，考虑隔离/未隔离情况、疫苗接种情况、医疗卫生条件等因素提出了改进的SEIR模型，与logistic模型和传统的SEIR模型比较，预测率有较大提升。由于国外的数据不包含疑似病例数据，采用SIR模型进行分析预测未来疫情数据。