小编jon*_*ana的帖子

我希望使用VBA设置颜色数组.
这并不简单,就像我想的那样.

使用Vb.NET你可以声明这样的颜色数组:

Dim ar() As Color = {Color.Yellow, Color.Red, Color.Green}

所以我在VBA中尝试了一些similer(并没有因为抛出编译错误而感到惊讶,我不知道数据类型是什么vbYellow(Enum？)):

Private Sub CommandButton1_Click()

Dim ar(3) As Object
Dim a, b, c As Object

Set a = vbYellow
Set b = vbRed
Set c = vbGreen

ar(0) = a
ar(1) = b
ar(2) = c

End Sub 

谢谢.

我正在为样式ng-template标签苦苦挣扎。
到目前为止，我在.css文件中尝试的操作：

• 在我的.css文件中使用#other_content作为ID
• 给...添加一个类 <ng-template>
• 样式化所有<td>标签

它不起作用，搜索后我没有找到任何解决方案。

HTML：

<div class="cont">
    <div class="scolldiv">
        <table border="1">
            <thead>
                <tr>
                    <th>Char</th>
                    <th>Break After</th>
                    <th>Remove</th>
                </tr>
            </thead>
            <tbody>
                <tr *ngFor="let charobj of Chars;let i = index" [attr.data-index]="i">
                    <td>{{charobj.char}}</td>
                    <td class="tdcell" *ngIf= "charobj.after; else other_content">YES</td>
                    <ng-template  #other_content>NO</ng-template>
                    <td>
                        <MyBtn
                            [ID]="'btnaddchars_' + i"
                            [BackColor]= "globals.sysButtonBackColor"
                            [Color]= "globals.sysButtonForeColor"
                            [HoverBackColor] = "globals.sysHoverButtonBackColor"
                            [HoverColor] = "globals.sysHoverButtonForeColor"
                            [Text] ="'Delete'"
                            [SecondText]="'Close'"
                            [Width] ="'70px'"
                            [Height]="'17px'"
                            (buttonWasClicked) ="onSymbolsFormButtonClick($event)"
                            >
                        </MyBtn>
                    </td>
                </tr>

            </tbody>
        </table>
    </div>
</div>

图片：

我正在努力改进我的算法但没有进展.

我需要一个可重用的函数来计算x*3+y*5=n.

限制:

• N> = 7
• x,y,n总是整数正整数
• 我需要找到x和y之间最小距离的组合(绝对值) |x-y|

这是我编写的控制台应用程序草稿,它编译和工作但是,正如您所看到的,在处理大数字时效率非常低.

我认为我缺乏数学知识以改进代码:

static void Main(string[] args)
{
    GetWarAfterMath(5000000);
    Console.ReadLine();
}

const int FIRST = 3;
const int SECOND = 5;

static void GetWarAfterMath(int n)
{
    int x = 0;
    int y = 0;
    int delta = 0;

    int i = 0;
    int j = 0;

    for (i = 0; i < n; i++)
    {
        for (j = 0; j < n; j++)
        {
            if ((i * FIRST) + (j …

System.Windows.Forms.Control与其他不安全的属性相比，为什么从另一个线程更新 的部分属性是安全的，并且程序员必须使用Delegate?

例如，ForeColor比较Text.

有人可以从设计的角度解释这一点吗？

我相信它并不难,但找不到任何东西.
我有一个List对象,我想编写一个查询来确定所有对象的特定属性是否具有值1.
我想用LINQ\ 来做Lambda.

    private bool IsTheSame(List<ContenderLeague> TryUpgradeConts)
    {
        bool IsTheSameValue = true;
        foreach (ContenderLeague c in TryUpgradeConts)
        {
            if (c.Contender.Factor != 1)
            {
                IsTheSameValue = false;
                break;
            }
        }
        return IsTheSameValue;
    }

我有2个数据表,每个数据表有300,000行(从带有OLEDB的2个excel工作表导入的数据表).

第一个数据表是'dtTosearch',第二个数据表是'sourceDt'.

这是2个表的示例:

我需要为'untagged'列(sourceDt)中的每一行找到'token'列(dtTosearch)中每一行的匹配项.匹配条件是:

1. 'site'value ='site'值
2. 'cat'值='类别'值
3. 未标记的值必须包含标记值
4. 如果上述所有条件都存在超过一个匹配,则查询必须返回 具有最大长度的令牌匹配. (这是我没有弄清楚如何使用linq执行的棘手部分)
5. 这个任务必须在最短的处理时间内运行 - 因为它的要求,因为它更专业,因为我与朋友 - 同事-JAVA热心的开发人员打赌,.NET将运行得更快(如同白天( - :)

香港专业教育学院添加了代码的相关部分,它工作正常,但不是我想要的方式,我想改善处理时间,看看linqQuery()函数中的foreach循环 - 如果你帮我替换那个循环我会很感激通过将我的查询扩展到条件号4,循环操作条件4,因为linq查询的结果按'token'长度按降序排序,因此它将退出并返回具有最大行长度的结果.

Private Sub startScanning()
    Dim siteNum As Double
    Dim categoryNum As Double
    Dim stringToSearchin As String

    For i = 0 To sourceDt.Rows.Count - 1
        siteNum = sourceDt.Rows(i).Item(0)
        categoryNum = sourceDt.Rows(i).Item(1)
        stringToSearchin = sourceDt.Rows(i).Item(3)
       Debug.WriteLine( linqQuery(siteNum, categoryNum, stringToSearchin) & " " &
           stringToSearchin)
    Next
End Sub

Private Function linqQuery(ByVal sitenum As Double, ByVal cat As Double,
                           ByVal …