VBA代码转换为C#代码:

来源：百度知道 编辑：UC知道 时间：2024/07/02 19:40:47
Dim TempX As Double
Dim TempY As Double
Dim pts() As Single
Dim pts_1() As Single
Dim TempR As Double
TempX = Ox + (x1 * 10)
TempY = Oy - (y1 * 10)
TempR = r * 10
ReDim pts(1 To Node_Num, 1 To 2)
ReDim pts_1(1 To Node_Num, 1 To 2)
pts(Count_Flag, 1) = Format(Value_R, "###0.00")
pts(Count_Flag, 2) = Format(Value_C_Min, "###0.00")
主要是 Dim pts() As Single
以及 pts(Count_Flag, 2) = Format(Value_C_Min, "###0.00")的具体用法
另有
ActiveDocument.Shapes(ListBox1.List(ListBox1.ListIndex)).Rotation = ConvertNum(TextBox1.Value)
ActiveDocument.Shapes[ListBox1.SelectedItem.ToString()].Rotation = ConvertNum(TextBox1.Value);怎么就没有人对那!
真是郁闷!!

float[] pts;
float[] pts_1;

Double TempX;
Double TempY;
Single[] pts;
Single[] pts_1;
Double TempR;
TempX = Ox + (x1 * 10)
TempY = Oy - (y1 * 10)
TempR = r * 10
c#没有redim 数组直接赋值即可

pts.setValue(Value_R.toString("f2"),Cont_Flag,1); //如果Value_R是double型的话

double TempR;
double TempX;
double TempY;

double TempX = 0;
double TempY = 0;
double TempR = 0;
TempX = Ox + (x1 * 10);
TempY = Oy - (y1 * 10);
TempR = r * 10;

float[,] pts = new float[Node_Num, 2]; //C#的数组必须从 0 开始
float[,] pts_1 = new float[Node_Num, 2]; //
pts[Count_Flag, 0] = float.Parse(string.Format(Value_R, "###0.00"));
pts[Count_Flag, 1] = float.Parse(string.Format(Value_C_Min, "###0.00"));
另有
ActiveDocument.Shapes[ListBox1.SelectedItem.ToString()].Rotation = ConvertNum(TextBox1.Value);//ConvertNum

double TempX